From: Steve Rindsberg on
In article <#rP#IgSFFHA.3368(a)TK2MSFTNGP10.phx.gbl>, Sanj wrote:
> Thanks Steve,
>
> That's great, the only problem is if the presenter uses a mouse a the front
> screen it will not work if the page up /space bar are used,

Ah, but you're going to trap that out by using Slide Show, Set Up Show to put
the presentation in Kiosk mode. The only way they're going to get off Slide 1
is by using your buttons or hitting the ESC key. ;-)


its a shame you
> cannot add the macro to when the first slide is viewed.
>
> Regards,
>
> Sanjay
>
> "Steve Rindsberg" <abuse(a)localhost.com> wrote in message
> news:VA.00001202.80356800(a)localhost.com...
> > In article <eCcdcGRFFHA.3972(a)TK2MSFTNGP15.phx.gbl>, Sanj wrote:
> > > Thanks Steve for your email, I got this working (I was placing the code
> in
> > > the slide VB code instead of in a module)
> >
> > Ah, thanks for mentioning that. I hadn't thought of that trick.
> >
> > > Could I ask how can I set that shapes are always hidden when the show
> > > starts, with the ToggleVisibility() code if you set it visible in a show
> > > then end the show and restart it the shapes are then visible, I would
> like
> > > them to be hidden always whenever the show starts.
> >
> > I'd do it this way: make the first slide of the presentation a welcome
> screen.
> > Add a button or a full screen rectangle or whatever, just something that
> the
> > user clicks to begin the show.
> >
> > That shape gets assigned a Run Macro action setting.
> > The macro it's assigned to runs through the whole presentation and makes
> each
> > tagged shape invisible:
> >
> > Sub HideThemAll()
> > Dim oSh as Shape
> > Dim oSl as Slide
> > For each osl in ActivePresentation.Slides
> > For each oSh in oSl.Shapes
> > If oSh.Tags("ToggleMe") = "YES" Then
> > oSh.Visible = False
> > End if
> > Next
> > Next
> > ' and advance to slide 2 to start the show
> > ActivePresentation.SlideShowWindow.View.GotoSlide(2)
> >
> > End Sub
> >
> > >
> > > BTW great product ( PPTools!)
> >
> > <Bow> Thanks.
> >
> > >
> > > Thanks,
> > >
> > > Sanjay
> > >
> > > "Steve Rindsberg" <abuse(a)localhost.com> wrote in message
> > > news:VA.000011d8.725e23e6(a)localhost.com...
> > > > In article <#Eoic1uEFHA.1348(a)TK2MSFTNGP14.phx.gbl>, Sanj wrote:
> > > > > Thanks Guys, Steve when you say 'Tag' what exactly does this mean?
> is
> > > this
> > > > > done through VB?
> > > >
> > > > VB or VBA, yes.
> > > >
> > > > Each Presentation, Slide or Shape has a Tags collection that consists
> of
> > > named
> > > > strings.
> > > >
> > > > For example, given a reference to a shape in oShp, you could:
> > > >
> > > > oShp.Tags.Add "TagName", "TagValue"
> > > >
> > > > Then later
> > > >
> > > > Msgbox oShap.Tags("TagName")
> > > >
> > > > > How do you know what shape number you are refering to - is there
> > > something
> > > > > you can click on to see the shapes property?
> > > > >
> > > > > Also if was to purchase your StarterStep Plus will I need to make
> sure
> > > each
> > > > > person presenting has it installed on their machines?
> > > >
> > > > StarterSet plus has a kind of object inspector that shows you (and
> lets
> > > you
> > > > edit) tags, the shape name and in some cases, link paths.
> > > >
> > > > The tags and other properties it sets are part of PowerPoint itself
> ....
> > > once
> > > > set, they're part of the presentation, and your code running on any
> copy
> > > of PPT
> > > > can access them. No need for StarterSet to be present.
> > > >
> > > > It's just like setting a shape's fill color to Blue. You can do it
> > > manually or
> > > > with code or an addin can do it, but any copy of PPT will still
> display
> > > the
> > > > shape's fill as blue.
> > > >
> > > > Tags are the same; the only difference is that there's no user
> interface
> > > to
> > > > them other than ones we write for ourselves.
> > > >
> > > > If all you need to do is set a few tag values, it's simple enough to
> code;
> > > we
> > > > can help you with that. Just ask ...
> > > >
> > > > >
> > > > > Thanks,
> > > > >
> > > > > Sanj
> > > > >
> > > > > "Steve Rindsberg" <abuse(a)localhost.com> wrote in message
> > > > > news:VA.000011d0.70e40538(a)localhost.com...
> > > > > > In article <Xns95FD773109777marcoNOSPAMloyolaedu(a)207.46.248.16>,
> David
> > > M.
> > > > > > Marcovitz wrote:
> > > > > > > I'm very skeptical, but I will take your word for it that you
> need
> > > to
> > > > > > > keep it on one slide. Just to be clear, the two-slide solution
> will
> > > > > > > likely take you a few minutes to implement while the macro
> solution
> > > > > > > (unless you are already familiar with the basics of macros in
> > > > > PowerPoint)
> > > > > > > will likely take you a few hours to implement. Now that I've
> warned
> > > > > > > you...
> > > > > > >
> > > > > > > To get started, you will want to check out the Programming
> > > PowerPoint
> > > > > > > section of the PPT FAQ:
> > > > > > >
> > > > > > > http://www.rdpslides.com/pptfaq/#PROGRAMMING_POWERPOINT
> > > > > > >
> > > > > > > Or you will want to check out my book about using macros in
> > > PowerPoint:
> > > > > > >
> > > > > > > http://www.loyola.edu/education/PowerfulPowerPoint/
> > > > > > >
> > > > > > > The basic thing you want to do is write some macros that show
> shapes
> > > and
> > > > > > > write some macros that hide shapes. For example:
> > > > > >
> > > > > > I'd probably go at it a little differently:
> > > > > >
> > > > > > Sub ToggleVisibility()
> > > > > > Dim oSh as Shape
> > > > > > For Each oSh in
> ActivePresentationSlideShowWindow.View.Slide.Shapes
> > > > > > If oSh.Tags("ToggleMe") = "YES" Then
> > > > > > oSh.Visible = Not oSh.Visible
> > > > > > End If
> > > > > > Next ' Shape
> > > > > > End Sub
> > > > > >
> > > > > > Then you'd tag each of the shapes you want to toggle with a
> ToggleMe =
> > > YES
> > > > > tag.
> > > > > > Our StarterSet Plus toobar (http://starterset.pptools.com) does
> this
> > > and
> > > > > a
> > > > > > bunch of other useful stuff for the cost of a week's worth of
> lattes
> > > or
> > > > > so. Or
> > > > > > DIY:
> > > > > >
> > > > > > Sub ToggleTagMe()
> > > > > > Call ActiveWindow.Selection.ShapeRange(1).Tags.Add("ToggleMe",
> > > "YES")
> > > > > > End Sub
> > > > > >
> > > > > > >
> > > > > > > Sub ShowMyShapes()
> > > > > > > ActivePresentation.SlideShowWindow.View.Slide.Shapes(3) _
> > > > > > > .Visible = True
> > > > > > > ActivePresentation.SlideShowWindow.View.Slide.Shapes(4) _
> > > > > > > .Visible = True
> > > > > > > ActivePresentation.SlideShowWindow.View.Slide.Shapes(5) _
> > > > > > > .Visible = True
> > > > > > > End Sub
> > > > > > >
> > > > > > > Sub HideMyShapes()
> > > > > > > ActivePresentation.Slides(1).View.Slide.Shapes(3) _
> > > > > > > .Visible = False
> > > > > > > ActivePresentation.Slides(1).View.Slide.Shapes(4) _
> > > > > > > .Visible = False
> > > > > > > ActivePresentation.Slides(1).View.Slide.Shapes(5) _
> > > > > > > .Visible = False
> > > > > > > End Sub
> > > > > > >
> > > > > > > But the details will all be very important and will depend on
> all
> > > the
> > > > > > > details of what you want to do.
> > > > > > >
> > > > > > > --David
> > > > > > >
> > > > > >
> > > > > > -----------------------------------------
> > > > > > Steve Rindsberg, PPT MVP
> > > > > > PPT FAQ: www.pptfaq.com
> > > > > > PPTools: www.pptools.com
> > > > > > ================================================
> > > > > >
> > > > > >
> > > > >
> > > >
> > > > -----------------------------------------
> > > > Steve Rindsberg, PPT MVP
> > > > PPT FAQ: www.pptfaq.com
> > > > PPTools: www.pptools.com
> > > > ================================================
> > > >
> > > >
> > >
> >
> > -----------------------------------------
> > Steve Rindsberg, PPT MVP
> > PPT FAQ: www.pptfaq.com
> > PPTools: www.pptools.com
> > ================================================
> >
> >
>

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================