Hide / Unhide shapes at will

Problem

You want to include shapes in your presentation but you need to hide them for some purposes, leave them visible at other times.

Solution

The first macro below will tag each selected shape for hiding/unhiding. You can select multiple shapes at a time.

Then when you run the HideUnhideTaggedShapes macro (further below) it will toggle the visibility of these tagged shapes on and off.

Option Explicit

Sub TagForHide()

    Dim oSh As Shape

    For Each oSh In ActiveWindow.Selection.ShapeRange
        oSh.Tags.Add "HideMe", "YES"
    Next

End Sub

Sub HideUnhideTaggedShapes()

    Dim oSl As Slide
    Dim oSh As Shape

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            If oSh.Tags("HideMe") = "YES" Then
                ' Make the visible hidden,
                ' or the hidden visible
                oSh.Visible = Not oSh.Visible
            End If
        Next
    Next

End Sub

Sub UndoAnOopsie()
' And in case things go pear-shaped,
' use this to unhide EVERYTHING

    Dim oSl As Slide
    Dim oSh As Shape

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            oSh.Visible = True
        Next
    Next

End Sub

---