Hide / Unhide shapes at will
You want to include shapes in your presentation but you need to hide them for some purposes, leave them visible at other times.
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