【ExcelVBA】ListBoxを使ってコネクタを選択する

前回、コネクタタイプを変更できるようにしたのですが、 選択範囲内のコネクタが全て変更されてしまうので、 選択したコネクタだけを変更できるようにしたいなと考えています。 Ctrl+で選択もいいのですが、 複数あった場合、一つ一つクリックしていくのって手間が掛かります。 そこで何かいい方法がないかとネットを渡り歩いていた所、 Infomentのブログ ~Excel VBA奮闘記~ さんのブログを見つけました。 フローチャート作りをされていて、 詳しくコードを説明されているので参考にさせて頂きたいと思います。 リストボックスで選択した項目に対応するオートシェイプを選択する 有用な記事を有難うございます。 この場を借りてお礼申し上げます。m(_ _)m 早速、この記事を参考に導入してみます。 まずは、コネクタを読み込むリストボックスが必要になるので、 新しくUserFoamを追加します。 今回は、UserFoam2が空いてるので、そこに作って行きます。 必要なツールは、リストボックス・ボタン3つです。 コネクタの名前を取り込むリストボックス 範囲選択した図形の中から、コネクタを取得するボタン コネクタタイプを切り替える各ボタン2つです。 続いて、UserFoam2の管理用モジュールを作ります。 標準モジュールを追加して、UF2Controllerとリネームしておきます。 UF2Controller(標準モジュール) Opti…

続きを読む

【ExcelVBA】コネクタの種類を変更する

長らくブログ更新をサボって申し訳ないです(ToT)>゛スンマセン いろいろとやる事があって、暫く触れなかったので、 記事を書く事もできませんでした。 7月中は、なにかと忙しいので更新頻度は低いですが、 ぼちぼちと処理を作っていこうと思うので、温かい目で見守って頂けると助かります。 さて、フローチャート作りも、いよいよ大詰めになりました。 最後は、コネクタのタイプを変更するです。 コネクタのタイプを変更できるようにする意味なんですが、 接続した図形を移動させた場合、位置によって線タイプを変更する必要があります。 例えば、 こんな感じで図形を移動させると直線タイプでは表示が分かりにくくなります。 当然、カギ線に変更したいのですが、削除して引き直すってのは面倒です。 なので、コネクタを選択しておいて、タイプを切り替える処理を考えてみます。 単純に切り替えるだけでは、面白くないので、 カギ線の時は、結合点も変更できるようにしてみたいと思います。 はたして上手く作れるのか… ( ー̀ωー́ ).。oஇ 選択中のコネクタのタイプを切り替えるには、 現状のタイプを判別できないと切り替える事もできないので、 コネクタタイプを取得して、判別できるようにします。 コネクタのタイプを取得するには、ConnectorFormatプロパティを使います。 標準モジュール Option Explicit Sub Typ…

続きを読む