TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
Sub HideGraphics() Dim oSl As Slide Dim oSh As Shape For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes Select Case oSh.Type Case msoPicture, msoLinkedPicture oSh.Tags.Add "Hidden", "YES" oSh.Visible = msoFalse Case Else ' nothing to do End Select Next Next End Sub Sub UNHideGraphics() Dim oSl As Slide Dim oSh As Shape For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes If oSh.Tags("Hidden") = "YES" Then oSh.Visible = True oSh.Tags.Add "Hidden", "NO" End If Next Next End Sub