パワーポイントの特定のスライドを一括で非表示スライドにする【VBAのサンプルコード】
パワーポイントの特定のスライドを一括で非表示スライドにしたいことがよくあります。
例えば以下のような研修のテキストにおいて。
![パワーポイントの特定のスライドを一括で非表示スライドにする【VBAのサンプルコード】 - 印刷したくないスライドもある](https://saycon.co.jp/wordpress/wp-content/uploads/2018/09/80559279d033e4b7531f05e1ce389eaa.png)
テキスト用に印刷するスライドと、プレゼン用にプロジェクタに投影するスライドは違うことがあります。
いままでは、研修のつど、
- テキスト用に印刷したくないスライドは非表示スライドにしてから印刷する。
- 研修当日に一枚一枚のスライドの「非表示スライドに設定」チェックを外す。
といったことを繰り返していました。
しかし、このVBAのスクリプトを使えば、特定のスライドを一括で非表示スライドにできます。
なお、非表示にしたいスライドのタイトルには"★"が入力されているという前提です。
![パワーポイントの特定のスライドを一括で非表示スライドにする【VBAのサンプルコード】 - パワーポイントの特定のスライドを一括で非表示スライドにする](https://saycon.co.jp/wordpress/wp-content/uploads/2018/09/222442d0b62ce56542d4458e9b7df131.png)
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
参考にさせていただいたサイト