|
ハチさん
返信ありがとうございます。
とてもわかりやすいソースですね!
一目で内容がある程度理解できました。
しかし、
>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
と記述してみたところ、やはりここで同様にエラーが出てしまいます。
|
|