Home » エクセルマクロ・Excel VBAの使い方 » DrawingObjects » Excel VBAでShapeRangeの個数を取得する

Excel VBAでShapeRangeの個数を取得する

対象：動作検証バージョン：Windows版Excel（バージョン1810 ビルド11001.20108）

検索キーワード
「.ShapeRange 個数」
「vba shaperange 数を取得」
をキッカケにして、ShapeRangeの個数を取得するPowerPoint VBAのSubプロシージャを公開しています。

Excel VBAの場合をご紹介します。

［スポンサードリンク］

選択図形の数を取得するサンプルマクロ

実は、PowerPoint VBAと、まったく同じSubプロシージャでOKです。

Sub 選択されている図形の個数を取得する()
On Error GoTo ErrHandl

　MsgBox _
　　ActiveWindow.Selection.ShapeRange.Count

Exit Sub
ErrHandl:
　MsgBox "図形を選択してから実行してください。"
End Sub

ActiveWindowプロパティを明示することで

オブジェクトブラウザーで確認すればわかるとおり、

Excel.Global.Selection

Excel VBAの場合Selectionプロパティはグローバルメンバーですから、
　　ActiveWindow.Selection.ShapeRange.Count
の部分は「ActiveWindow.」を省略して
　　Selection.ShapeRange.Count
と書くこともできます。

拙著『いちばんやさしいExcel VBAの教本』の、執筆段階でのレビューで大変お世話になったthomさんのブログ記事「VBA 角丸四角形の角の丸めサイズを統一するマクロ(Excel・PowePoint・Word対応)」で公開されているSubプロシージャAdjustRoundedRectangleでも、ActiveWindowプロパティを明示することで、まったく同じコードがExcelでもPowerPointでもWordでも動くようになっています。

ActiveWindowプロパティが返すオブジェクトの名前は違う

細かい話ですが、ActiveWindowプロパティが返すオブジェクトが、Excel VBAの場合はWindowオブジェクトである点は、一応、違います。

Excel.Global.ActiveWindow

ただ、PowerPointのDocumentWindowオブジェクトと、ExcelのWindowオブジェクトは、いずれもアプリケーションウィンドウを表す、結局は同じようなオブジェクトです。

ExcelのWindowオブジェクトのコレクションはWindowsで、

どうしてもOSとしてのWindowsを想起させてしまうと感じるので、PowerPointのDocumentWindows・DocumentWindowという名前のほうが、適切だと私は思います。

最終更新日時：2021-09-03 16:05

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » DrawingObjects » Excel VBAでShapeRangeの個数を取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「DrawingObjects」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.