パワーポイントの特定のスライドを一括で非表示スライドにする【VBAのサンプルコード】
山崎講師パワーポイントの特定のスライドを一括で非表示スライドにしたいことがよくあります。
例えば以下のような研修のテキストにおいて。
テキスト用に印刷するスライドと、プレゼン用にプロジェクタに投影するスライドは違うことがあります。
いままでは、研修のつど、
- テキスト用に印刷したくないスライドは非表示スライドにしてから印刷する。
- 研修当日に一枚一枚のスライドの「非表示スライドに設定」チェックを外す。
といったことを繰り返していました。
しかし、このVBAのスクリプトを使えば、特定のスライドを一括で非表示スライドにできます。
なお、非表示にしたいスライドのタイトルには"★"が入力されているという前提です。
Sub 一括非表示()
Const FIND_TXT = "★"
Dim shp As Shape
Dim sld As Slide
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
With shp
If .HasTextFrame Then
If InStr(.TextFrame.TextRange.Text, FIND_TXT) _
> 0 Then
sld.SlideShowTransition.Hidden = msoTrue
End If
End If
End With
Next
Next
End Sub参考にさせていただいたサイト
