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

「.ShapeRange 個数」
「vba shaperange 数を取得」
といった検索キーワードでのアクセスに気付きました。

Excel VBAでShapeRangeオブジェクトの数を取得するコードについて調べていたのではないかと思うのですけれど、Excel VBAのShapeRangeは真面目に解説すると話が長くなることもあり、まずはPowerPoint VBAについて解説しておきます。

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

PowerPointのスライド上で図形を選択しておいてから以下のSubプロシージャを実行すると、選択されている図形を表すShapeRangeオブジェクトの数がメッセージボックスに表示されます。

サンプルマクロで利用しているオブジェクト式について

PowerPoint VBAの場合、DocumentWindowオブジェクトのSelectionプロパティで、選択されているものを表すSelectionオブジェクトを取得できます。

ただし、PowerPoint VBAの場合はSelectionプロパティがグローバルメンバーではありませんから、DocumentWindowオブジェクトを取得するコードから書く必要があります。そのためアクティブなウィンドウを表すDocumentWindowオブジェクトを返す、グローバルメンバーであるActiveWindowプロパティからコードが始まっています。

取得したSelectionオブジェクトのShapeRangeプロパティを使うと、選択されている図形を表すShapeRangeオブジェクトを取得できます。

ShapeRangeオブジェクトは、Shapeオブジェクトと同じようなプロパティ・メソッドを持っていますが、実はコレクションですから含まれる単独のオブジェクトの数を返すCountプロパティも用意されています。

このShapeRange.Countをメッセージボックスに表示しているのが、上記のSubプロシージャです。

コレクションはCountプロパティを持つ

拙著『いちばんやさしいExcel VBAの教本』の、Lesson 53「コレクションオブジェクトについて学習しましょう」で、

コレクションオブジェクトには、含まれる単独のオブジェクトの数を取得するCountプロパティが用意されています。

と書きました。このルールは、Excel VBAだけでなくPowerPoint VBAでも同じです。

• VBA経験者はChapter 8「オブジェクト関連の文法を学ぼう」を
• リアル書店の在庫確認用リンク

▼パワポマクロの作成に必須なオブジェクトブラウザーの使い方とともに、VBAのオブジェクト式の文法・オブジェクト変数等についてとことん解説するセミナー『Excel VBA講座 オブジェクト式解説編』を開催します。