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ユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

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

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

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

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

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

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

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

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

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

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

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