ActivePresentation.SlideShowWindow.View.Slide gives you the current
slide, so you are looking for:

ActivePresentation.SlideShowWindow.View.Slide.Shap es("Keypad").Visible =
msoTrue

--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

=?Utf-8?B?Zmx5aW5nX3BpZw==?= <flyingpig@discussions.microsoft.com> wrote
in news:4673D8DE-DCD2-4D2D-9985-CE685075E455@microsoft.com:

> This is probably trivial but I can't find the appropriate search
> criteria to get the answer. Here is the problem:
>
> I have a small libarary of complex shapes (e.g. fully funtioning
> virtual keyboard) and wish to reuse them on selected slides in my
> interactive presentation.
>
> I have no problem placing them on a specific slide e.g.
>
> ActivePresentation.Slides(66).Shapes("Keypad").Vis ible = msoTrue
>
> But I can't work out the syntax/method of refering to the current
> slide instead of a fixed slide, 66 in this case. I wish to pass the
> current slide to the subroutine that shows the "keypad" shape so that
> it will display on the current slide (or any alternate better method).
> Thanks for any help.
>
> Bob