VBAでコネクタが存在するか調べる

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「excel vba shape コネクタがあるか?」
という検索でアクセスがありましたので参考になりそうな簡単なExcelマクロを作ってみました。

［スポンサードリンク］

アクティブシートにコネクタが存在するか調べるサンプルマクロ

以下のようなSubプロシージャで、アクティブシートにコネクタが存在するかどうかを判定できます。

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プロパティを使うと、

VBAでコネクタが存在するか調べる

図形がコネクタかどうかを判定できます。

Connectorというプロパティ名は、どうもモヤモヤした感情が残りますが。

ですから、アクティブシート上の全Shapeに対してFor Each～Nextループを回して、
　For Each shp In ActiveSheet.Shapes

Shape.Connectorプロパティを調べて、
　　If shp.Connector Then

コネクタだったときにメッセージを表示して、Subプロシージャを抜け、
　　　MsgBox "コネクタが存在します！"
　　　Exit Sub

最後までFor Each～Nextループを回したということは、コネクタが存在しなかったということなので、その旨メッセージを表示しています。
　MsgBox "コネクタは存在しません。"

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「Shapesコレクション・Shapeオブジェクト」の記事一覧