【ExcelVBA】動的配列で複数図形を一括接続する
最近、ウォーキングをするようになって、
少し減量に成功したケロです。
全然、記事とは関係ない事から書き始めましたが、
ウォーキング1hr~1.5hrほどするとPCを触る時間が減ります。
なのでブログも更新が進まないって事が書きたかったですが…
個人的な話なんでこれくらいにして。
フローの修正が残っていたので、まとめてみようと思います。
今回は、複数の図形に一括で直線を繋げる処理を作ってみます。
カギ線の場合、結合点を指定する必要があるので、
直線のみの対応になります。
ここで考えておく必要があるのが、
・全図形なのか
・選択した図形なのか
の二点です。
フローなら図形が当然増えていきます。
全図形にすると数が多い事や、後から追加した図形の接続を考えると、
選択した図形の一括接続がいいと思います。
まず、以前に作った図形接続のプロシージャを見てみます。
標準モジュール4に作っていたので、リネームしてLineConnectに変更します。
オブジェクト名を変更するとリネームする事ができます。
LineConnectモジュールを開いて、接続プロシージャを開きます。
標準モジュール(LineConnect)
Option Explicit
Sub Connection()
Dim arrow As Shape '矢印線取得'
Dim selectSh(2) As Sha…