Quote:
Originally Posted by excelledsoftware
Thanks again John,
How do I get this code to work for the current slide?
|
Nevermind I got it to work. Much more simple than I thought
Sub unhide()
ActiveWindow.Selection.SlideRange.Shapes.SelectAll
With ActiveWindow.Selection.ShapeRange
.Visible = msoTrue
End With
ActiveWindow.Selection.Unselect
End Sub
Thanks again John