PowerPointならShapes.Range.Countでも図形の個数を取得できる

動作検証バージョン：64bit Windows 10 Pro + 32bit PowerPoint（バージョン2107 ビルド14228.20250 Microsoft Store）

PowerPoint.Shapes.Range

Excel VBAの兄弟ともいえるPowerPoint VBAの場合、「.Shapes.Range.Count」はエラーにならず、図形の個数を取得できます。

［スポンサードリンク］

Shapes.Range.Countを確認する

PowerPoint VBAで以下のSubプロシージャを実行すると、アクティブプレゼンテーション先頭スライドに存在する図形の個数が、メッセージボックスに表示されます。

Sub あえてShapeRangeを使って図形の個数を取得する()
　MsgBox _
　　　ActivePresentation.Slides(1).Shapes.Range.Count
End Sub

ここではExcel VBAとの比較のためにあえて「.Slides(1).Shapes.Range.Count」としていますけれど、図形の個数を取得するだけならばもちろん「.Slides(1).Shapes.Count」をおすすめします。

PowerPointの場合、Shapesコレクションに用意されているRangeメソッドの引数が必須ではないためです。

オブジェクトブラウザーの詳細ペインで、Shapes.Rangeメソッドの引数を確認すると、「([Index])」と表示されています。

PowerPoint.Shapes.Range

引数名のIndexが、[ ] で括られていることから、省略できることが読み取れます。

このため「.Shapes.Range.Count」でエラーになることなく、図形の個数を取得できたわけです。

あらためて、Excel VBAのShape.Rangeを確認しておきましょう。

ExcelのShapes.Rangeプロパティの引数は、オブジェクトブラウザー詳細ペインの1行目に「(Index)」と表示されているとおり、

Excel.Shapes.Range

必須です。

そのためExcel VBAの場合、「.Shapes.Range.Count」がエラーになってしまったわけです。

最終更新日時：2021-09-26 12:10

［スポンサードリンク］

『インストラクターのネタ帳』では、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ユーザーに向けに書きました↓↓

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