Excel VBA質問箱 IV

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

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


28615 / 76732 ←次へ | 前へ→

【53411】Re:コネクタがついている図形の位置の取得
お礼  GOOD E-MAIL  - 08/1/9(水) 16:07 -

引用なし
パスワード
   ハチさん

返信ありがとうございます。
とてもわかりやすいソースですね!
一目で内容がある程度理解できました。

しかし、

>Sub Test_Connector()
>  Dim Tgt_Shp As Object
>  Dim obj_Shp As Shape
>  
>  Set Tgt_Shp = Selection
>  
>  For Each obj_Shp In ActiveSheet.Shapes
>    With obj_Shp
>      If .Connector Then 'コネクタか?
>        With .ConnectorFormat
>          If .BeginConnected And .EndConnected Then
>            If Tgt_Shp.Name = .BeginConnectedShape.Name Then

→ここでエラーが出てしまいます・・・
おそらく原因はTgt_Shp.Nameの値がないことが原因であると思います。
エラーは、「アプリケーション定義、またはオブジェクト定義のエラーです」
となりました。
年のため、

>  Set Tgt_Shp = Selection

の後に、Msgbox tgt_shp.Name
と記述してみたところ、やはりここで同様にエラーが出てしまいます。
0 hits

【53400】コネクタがついている図形の位置の取得 GOOD 08/1/9(水) 10:41 質問
【53401】Re:コネクタがついている図形の位置の取得 ハチ 08/1/9(水) 12:54 発言
【53402】Re:コネクタがついている図形の位置の取得 GOOD 08/1/9(水) 13:04 発言
【53403】Re:コネクタがついている図形の位置の取得 ハチ 08/1/9(水) 13:22 発言
【53404】Re:コネクタがついている図形の位置の取得 GOOD 08/1/9(水) 13:43 質問
【53409】Re:コネクタがついている図形の位置の取得 ハチ 08/1/9(水) 15:36 回答
【53411】Re:コネクタがついている図形の位置の取得 GOOD 08/1/9(水) 16:07 お礼
【53415】Re:コネクタがついている図形の位置の取得 ハチ 08/1/9(水) 16:37 発言
【53418】Re:コネクタがついている図形の位置の取得 GOOD 08/1/9(水) 19:03 回答

28615 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free