PowerPointでスライドを挿入したときに自動的に表示される
「クリックしてタイトルを入力」
「クリックしてテキストを入力」
を邪魔だと感じる方、これらを消す方法はないのかと思っている方向けに、プレースホルダーを非表示にする操作をご紹介しています。
数枚のスライドで、プレースホルダーを手作業で非表示にするのは問題ありませんが、大量のスライドが存在している場合には面倒になります。
そんなときに使えそうなマクロを作成してみました。
文字の入力されていないプレースホルダーを非表示にするサンプルマクロ
アクティブなプレゼンテーションファイルの、すべてのスライドをチェックして、文字の入力されていないプレースホルダーを一括して非表示にするマクロです。
Dim sld As Slide
Dim shp As Shape For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes.Placeholders
With shp
If .HasTextFrame = msoTrue Then
If .TextFrame.TextRange.Text = "" Then
.Visible = msoFalse
End If
End If
End With
Next shp
Next sld
End Sub
上記のマクロを実行すると、アクティブなプレゼンテーションファイルの、全スライドの、文字の入力されていないプレースホルダーが一気に非表示になります。
サンプルマクロの解説
アクティブなプレゼンテーションファイルの、全スライドにループ処理を開始し、
For Each sld In ActivePresentation.Slides
全スライドに対するループの中で、個々のスライドの全プレースホルダーにループ処理を開始し、
For Each shp In sld.Shapes.Placeholders
もしプレースホルダーにテキストフレームがあったら、
If .HasTextFrame = msoTrue Then
文字列が入力されているかどうかを確認して、もし空白ならば、
If .TextFrame.TextRange.Text = "" Then
非表示にしています。
.Visible = msoFalse
既にご紹介している、すべてのプレースホルダーを表示するマクロも合わせてご参照ください。
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » プレースホルダー » 文字の入力されていないプレースホルダーを非表示にするパワポマクロ
