パワーポイントの特定のスライドを一括で非表示スライドにする【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