「PowerPointVBAプレースホルダーのサイズ確認」
といった検索キーワードで、このサイト『インストラクターのネタ帳』へアクセスがありました。
プレースホルダーの大きさ（幅と高さ）を取得する、PowerPoint VBAのコードを探していた方による検索です。
タイトルプレースホルダーのサイズを取得するサンプル
アクティブなプレゼンテーションの先頭スライドに、タイトルプレースホルダーが存在するときに、以下のSubプロシージャを実行してください。
With ActivePresentation.Slides(1).Shapes.Title
MsgBox .Width & vbCrLf & .Height
End With
End Sub
幅と高さがメッセージボックスに表示されます。
拙著『いちばんやさしいPowerPoint VBAの教本の「Lesson 30 図形を表すオブジェクトのイメージをつかみましょう」以降で解説しているとおり、プレースホルダーを表すオブジェクトもShapeです。
ですから、「Lesson 34 Shapeの位置と大きさを表すプロパティについて学習しましょう」でお伝えしているWidthプロパティで幅を、Heightプロパティで高さを取得できます。
MsgBox .Width & vbCrLf & .Height
End With
タイトルプレースを表すShapeオブジェクトを取得するために、「Lesson 53 タイトルプレースホルダーを取得するコードを理解しましょう」で解説しているShapes コレクションのTitleプロパティを利用しています。
MsgBox .Width & vbCrLf & .Height
End With
「ActivePresentation.Slides(1).Shapes」の部分は、Shapesコレクションを取得するPowerPoint VBAの最も基本的なオブジェクトを取得するコードで、拙著では「Lesson 33 Shapesコレクションをオブジェクトブラウザーで確認しましょう」までで解説しています。
2つ目のプレースホルダーのサイズを取得するサンプル
タイトルプレースホルダーではない、コンテンツプレースホルダー等のサイズを取得する場合は以下のSubプロシージャが参考になるでしょう。
With ActivePresentation.Slides(1).Shapes.Placeholders.Item(2)
MsgBox .Width & vbCrLf & .Height
End With
End Sub
アクティブなプレゼンテーションの先頭スライドに、2つ以上プレースホルダーが存在するときに、上記のSubプロシージャを実行してください。
Widhtプロパティ・Heightプロパティは先述の、タイトルプレースホルダーのサイズを取得する場合と同じです。
MsgBox .Width & vbCrLf & .Height
End With
ここでは2つ目のプレースホルダーを取得するために、「Lesson 50 PlaceholdersからShapeを取得するコードを理解しましょう」で解説している、PlaceholderesコレクションのItemメソッドを利用しています。
MsgBox .Width & vbCrLf & .Height
End With
ItemメソッドはPlaceholdersコレクションの既定メンバーですから、「.Placeholders.Item(2)」の「.Item」は省略して「.Placeholders(2)」と書くこともできます。
最終更新日時：2021-04-26 15:07
- Newer：Word VBAでセルの列番号を取得する
- Older：Pythonで改行コードLF「\n」を削除する
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » VBAでプレースホルダーのサイズを取得する
