【エクセルVBA】２つの図形を線で接続する方法！接続箇所まで指定可能

こんにちは、ヒガシです。

このページでは、以下の画像のように指定した２つの図形間をカギ線で接続する方法をご紹介していきます。

ただ単に接続するだけではなく、線の始点、終点を自由に変更可能です。

それではさっそくやっていきましょう！

２つの図形を接続するサンプルコード
線の接続位置の設定方法
サンプルコードの実行結果確認
おわりに

２つの図形を接続するサンプルコード

まずは２つの図形を接続する方法から説明します。

以下の例では、既存のShape1という図形とShape2という図形を接続する例です。

ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 0, 1, 0, 1).Select
With Selection.ShapeRange
    .ConnectorFormat.BeginConnect ActiveSheet.Shapes("Shape1"), *
    .ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes("Shape2"), *
End With

やっていることとしては、まず１行目で適当な場所にカギ線図形を配置し、その線の始点、終点を３，４行目で指定しています。

線の接続位置の設定方法

先ほど紹介したコードの３，４行目に*マークを書いていますが、ここに指定した数値の場所に接続されます。

この数値の設定方法は以下の通りです。

１が上辺、２が左辺、３下辺、４が右辺です。

これらの数値を各図形に対して設定することで、対応する数値間をカギ線で接続することが可能です。

サンプルコードの実行結果確認

まずはShape1の接続位置を１に、Shape2の接続位置を３に設定したときの例です。

問題なく指定した位置間で接続できていますね。

次はShape1の接続位置を２に、Shape2の接続位置を４に設定したときの例です。

こちらも問題なしですね。

おわりに

ということで今回は、既存の２図形間をカギ線で接続する方法をご紹介しました。

色々な場面で使えるスキルですので、ぜひ習得しておきましょう！

このように、私のブログではエクセルスキルはもちろん、様々なプログラミングスキルを紹介しています。

ぜひ他の記事ものぞいてみてください。