script to affect shape's visibility

[Patrick]

Hello. Almost completely new to scripting in PowerPoint but wonder if anyone
can direct me.

I am using PowerPoint 2003, and want to add a bunch of shapes to a slide.
When one shape is clicked, you jump to a different slide. When you click back
to the original slide, the shape(s) that have already been clicked are set to
0% visibility, or are dimmed. Does anyone have any idea how this is done?

Thanks very much!!

 

[Steve Rindsberg]

Hello. Almost completely new to scripting in PowerPoint but wonder if anyone
can direct me.

I am using PowerPoint 2003, and want to add a bunch of shapes to a slide.
When one shape is clicked, you jump to a different slide. When you click back
to the original slide, the shape(s) that have already been clicked are set to
0% visibility, or are dimmed. Does anyone have any idea how this is done?

Thanks very much!!

Sub JumpAndHide(oSh as Shape)

' Hide the shape
oSh.Visible = msoFalse

' in case we're on the last slide, a bit of crude error prevention.
' the error's harmless, so ignore it. ;-)
On Error Resume Next
SlideShowWindows(1).View.GoToSlide(oSh.Parent.SlideIndex + 1)

End Sub