TPE

[e-mail]

---

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

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

---