Hide and Show Graphics
You want to hide ... but NOT delete ... the graphics in your presentation. And you want to be able to unhide them later.
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.