パワーポイントの特定のスライドを一括で非表示スライドにする【VBAのサンプルコード】

投稿日 : 最終更新日時 : 作成者 : yamazaki カテゴリー : 新入社員, 研修講師の道具箱

パワーポイントの特定のスライドを一括で非表示スライドにしたいことがよくあります。

例えば研修において。

テキスト用に印刷するスライドと、プレゼン用にプロジェクタに投影するスライドは違うことがあります。

いままでは、研修が終わるたびに手動で表示／非表示スライドを切り替えていました。

しかし、この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

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 With

End Sub

参考にさせていただいたサイト

https://www.relief.jp/docs/powerpoint-vba-hide-specified-slide.html

MENU

パワーポイントの特定のスライドを一括で非表示スライドにする【VBAのサンプルコード】

AiA会員企業様のための

文系プログラマのための

新人エンジニアのための

出版物のご紹介

お問い合わせはこちらから

カテゴリー