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

Thinking about this further I was wondering if the concept of globally
available shapes was not part of PPT and I would therefore have to repeat
them or use a single slide and switch shapes in/out as I need them. I have
done this before but it gets a little confusing when there a 100's of shapes
to control.

"flying_pig" wrote:

> 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

> ActivePresentation.Slides(66).Shapes("Keypad").Vis ible = msoTrue

Try SlideShowWindows(1).Shapes("Keypad").Visible=msoTr ue


Austin Myers
Microsoft PowerPoint MVP Team

Creator of PFCPro, PFCMedia and PFCExpress
http://www.playsforcertain.com

One thing that would be a big help is to have the object model
documentation. Go to the MS web site and do a search for "vbapp10.chm". I
think you find it very helpful.



Austin Myers
Microsoft PowerPoint MVP Team

Creator of PFCPro, PFCMedia and PFCExpress
http://www.playsforcertain.com


"flying_pig" <flyingpig@discussions.microsoft.com> wrote in message
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

In article <FCB445C0-7484-478D-B1EC-6989D0B8184F@microsoft.com>, Flying pig
wrote:
> Thinking about this further I was wondering if the concept of globally
> available shapes was not part of PPT and I would therefore have to repeat
> them or use a single slide and switch shapes in/out as I need them. I have
> done this before but it gets a little confusing when there a 100's of shapes
> to control.

I think you've probably hit on it there. There are no global shapes as such, but
you might be able to put the shape you want on a slide master. Then it'd be
visible on any slide based on that master.

For code to return the current slide:
http://skp.mvps.org/ppt00030.htm

>
> "flying_pig" wrote:
>
> > 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
>

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com

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

Steve et al,

Thanks for your help, I have the correct syntax now but I am spending a bit
of time on the design approach that may obviate the need. I have done a
similar presentation that appears to be a multiple slide slideshow but in
fact all done on a single slide making shape managment a little simpler.

"Steve Rindsberg" wrote:

> In article <FCB445C0-7484-478D-B1EC-6989D0B8184F@microsoft.com>, Flying pig
> wrote:
> > Thinking about this further I was wondering if the concept of globally
> > available shapes was not part of PPT and I would therefore have to repeat
> > them or use a single slide and switch shapes in/out as I need them. I have
> > done this before but it gets a little confusing when there a 100's of shapes
> > to control.
>
> I think you've probably hit on it there. There are no global shapes as such, but
> you might be able to put the shape you want on a slide master. Then it'd be
> visible on any slide based on that master.
>
> For code to return the current slide:
> http://skp.mvps.org/ppt00030.htm
>
> >
> > "flying_pig" wrote:
> >
> > > 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
> >
>
> -----------------------------------------
> Steve Rindsberg, PPT MVP
> PPT FAQ: www.pptfaq.com
> PPTools: www.pptools.com
> ================================================
> Live and in personable in the Help Center at PowerPoint Live
> Sept 21-24, San Diego CA, USA
> www.pptlive.com
>
>