接続しているコネクタが存在するか判定するExcelマクロ

ShapeオブジェクトのConnectorプロパティを使って、コネクタが存在するかどうかを判定できることをご紹介しました。

実は、Shape.Connectorプロパティだけを使って判定すると、どの図形とも接続されていないコネクタ（結局それは「線」なのですが）も、コネクタと判定されてしまうという課題もあります。

いずれかの図形に接続されているコネクタだけをコネクタと判定するならば、判定条件を増やす必要があります。

図形に接続しているコネクタが存在するかを判定するサンプルマクロ

以下のSubプロシージャを実行すると、図形に接続しているコネクタが存在しているときに、
「図形に接続しているコネクタが存在します！」
メッセージが表示されます。

サンプルマクロで利用しているオブジェクト式について

ShapeオブジェクトのConnectorFormatプロパティで取得できる、ConnectorFormatオブジェクトの、

BeginConnectedプロパティとEndConnectedは、いずれかの図形に接続されているときにTrueを返します。

この判定を行っているのが、
　　　If _
　　　.ConnectorFormat.BeginConnected Or _
　　　.ConnectorFormat.EndConnected Then
のIf文です。