TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
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