Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
518 / 886 ←次へ　｜　前へ→
【378】二つのテキストボックスをコネクタでつなぎたい
質問  こま  - 05/11/21(月) 9:49 -
引用なし
パスワード
   描画キャンバス内のテキストボックス同士をコネクタでつなぎたいのですが、うまく動きません。
WordのVBAでは、BeginConnect、EndConnectメソッドは使えないのでしょうか。
環境はWinXP、Word2002で、以下が作成したコードです。
よろしくお願いします。

' 親テキストボックスと子テキストボックスをコネクタでつなぐ
Private Function ConnectBoxes(ByVal parent As shape, ByVal child As shape) As Shape
　　　　
　　Set ConnectBoxes = shpCanvas.CanvasItems.AddConnector _
　　　　(msoConnectorStraight, 1, 1, 1, 1)
　　ConnectBoxes.ConnectorFormat.BeginConnect parent, 3
　　ConnectBoxes.ConnectorFormat.EndConnect child, 1
　　ConnectBoxes.RerouteConnections

End Function
1,118 hits
▼ 【378】二つのテキストボックスをコネクタでつなぎたい こま 05/11/21(月) 9:49 質問≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
518 / 886 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207137
(SS)C-BOARD v3.8 is Free