Hide and Show Graphics

Problem

You want to hide ... but NOT delete ... the graphics in your presentation. And you want to be able to unhide them later.

Solution

The HideGraphics macro below will hide all embedded and linked pictures in the active presentation.
The UNHideGraphics macro will make them visible again.

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

See How do I use VBA code in PowerPoint? to learn how to use this example code.

---