Word VBA質問箱 IV

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

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


186 / 308 ツリー ←次へ | 前へ→

【378】二つのテキストボックスをコネクタでつなぎたい こま 05/11/21(月) 9:49 質問[未読]

【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

186 / 308 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
207137
(SS)C-BOARD v3.8 is Free