Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » VBAでプレースホルダーのサイズを取得する

VBAでプレースホルダーのサイズを取得する

動作検証バージョン:64bit Windows 10 Pro + 32bit PowerPoint(バージョン2001 ビルド12430.20184 Microsoft Store)

「PowerPointVBAプレースホルダーのサイズ確認」
といった検索キーワードで、このサイト『インストラクターのネタ帳』へアクセスがありました。

プレースホルダーの大きさ(幅と高さ)を取得する、PowerPoint VBAのコードを探していた方による検索です。

タイトルプレースホルダーのサイズを取得するサンプル

アクティブなプレゼンテーションの先頭スライドに、タイトルプレースホルダーが存在するときに、以下のSubプロシージャを実行してください。


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プロパティで高さを取得できます。


 With ActivePresentation.Slides(1).Shapes.Title
  MsgBox .Width & vbCrLf & .Height
 End With

タイトルプレースを表すShapeオブジェクトを取得するために、Lesson 53「タイトルプレースホルダーを取得するコードを理解しましょう」で解説しているShapes コレクションのTitleプロパティを利用しています。


 With ActivePresentation.Slides(1).Shapes.Title
  MsgBox .Width & vbCrLf & .Height
 End With

「ActivePresentation.Slides(1).Shapes」の部分は、Shapesコレクションを取得するPowerPoint VBAの最も基本的なオブジェクトを取得するコードで、拙著ではLesson 33「Shapesコレクションをオブジェクトブラウザーで確認しましょう」までで解説しています。

2つ目のプレースホルダーのサイズを取得するサンプル

タイトルプレースホルダーではない、コンテンツプレースホルダー等のサイズを取得する場合は以下のSubプロシージャが参考になるでしょう。


Sub 二個目のプレースホルダーのサイズを取得する()
 With ActivePresentation.Slides(1).Shapes.Placeholders.Item(2)
  MsgBox .Width & vbCrLf & .Height
 End With
End Sub

アクティブなプレゼンテーションの先頭スライドに、2つ以上プレースホルダーが存在するときに、上記のSubプロシージャを実行してください。

Widhtプロパティ・Heightプロパティは先述の、タイトルプレースホルダーのサイズを取得する場合と同じです。


 With ActivePresentation.Slides(1).Shapes.Placeholders.Item(2)
  MsgBox .Width & vbCrLf & .Height
 End With

ここでは2つ目のプレースホルダーを取得するために、Lesson 50「PlaceholdersからShapeを取得するコードを理解しましょう」で解説している、PlaceholderesコレクションのItemメソッドを利用しています。


 With ActivePresentation.Slides(1).Shapes.Placeholders.Item(2)
  MsgBox .Width & vbCrLf & .Height
 End With

ItemメソッドはPlaceholdersコレクションの既定メンバーですから、「.Placeholders.Item(2)」の「.Item」は省略して「.Placeholders(2)」と書くこともできます。

最終更新日時:2020-02-13 17:37

[スポンサードリンク]

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » VBAでプレースホルダーのサイズを取得する

TrackBack:0

TrackBack URL

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » VBAでプレースホルダーのサイズを取得する

「プレースホルダー」の記事一覧

検索


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

.