VBAでコネクタが存在するか調べる:エクセルマクロ・Excel VBAの使い方/Shapesコレクション・Shapeオブジェクト

Sub コネクタが存在するかを調べる() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Connector Then MsgBox "コネクタが存在します！" Exit Sub End If Next shp MsgBox "コネクタは存在しません。" End Sub サンプルマクロで使用しているオブジェクト式について ShapeオブジェクトやShapeRangeオブジェクトの、Connectorプロパティを使うと、 図形がコネクタかどうかを判定できます。 Connectorというプロパティ名は、どうもモヤモヤした感情が残りますが。 ですから、アクティブシート上の全Shapeに対してFor Each～Nextループを回して、 For Each shp In ActiveSheet.Shapes Shape.Connec