| |
▼sakumambo さん：
>オートシェイプにコネクタがつながっているかどうかを調べるには
> オートシェイプのどのプロパティを見ればいいのでしょうか？
まず Shapes をLoopして Connector をみつけ、
それが どのAutoShapeとつながってるかを調べる、
という手順をとるらしいです。
Sub Try1()
Dim shp As Shape
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
For Each shp In ActiveSheet.Shapes
If shp.Connector Then 'AutoShapeがコネクターだったら
With shp.ConnectorFormat
If .BeginConnected Then _
dic(.BeginConnectedShape.Name) = Empty
If .EndConnected Then _
dic(.EndConnectedShape.Name) = Empty
End With
End If
Next
Debug.Print "Connectorに接続する図形は"
Debug.Print Join(dic.Keys(), vbCrLf)
End Sub
|
|
kanabun
- 12/2/16(木) 22:52 -
