Unhide Picture Using msoFalse
I suppose it cannot find the picture and fails on the ActiveSheet
instruction.
No need to select -
Sub test()
s$ = "Rectangle 1"
HideUnhide s, False
Stop
HideUnhide s, True
End Sub
Sub HideUnhide(sName As String, bVisible As Boolean)
ActiveSheet.Shapes(sName).Visible = bVisible
End Sub
Regards,
Peter T
"Marvin" wrote in message
...
I am using Excel 2003 and executed the following macro command;
ActiveSheet.Shapes("P25%").Select
Selection.ShapeRange.Visible = msoFalse
I cannot reverse the process and receive and error if I use msoTrue. I
suppose it cannot find the picture and fails on the ActiveSheet
instruction.
I cannot find any menu item to unhide this picture. HELP!
|