Mouseover images
in [Powerpoint]
|
From: David M. Marcovitz on 17 Feb 2005 13:08 You only have access to things like onendshow or onslideshow if you are trapping events. See "Make PPT respond to events" from the PPT FAQ: http://www.rdpslides.com/pptfaq/FAQ00004.htm --David -- David M. Marcovitz Director of Graduate Programs in Educational Technology Loyola College in Maryland Author of _Powerful PowerPoint for Educators_ http://www.loyola.edu/education/PowerfulPowerPoint/ "sanj" <pptuser(a)pptuser.com> wrote in news:OKMtSjRFFHA.2568(a)TK2MSFTNGP10.phx.gbl: > Thanks David - I could you use the 'Get Started' looks like the most > easiest, is there not a 'onendshow' or 'onslideshow' in PowerPoint? > > Regards, > > Sanj >
From: Steve Rindsberg on 17 Feb 2005 09:08 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 ================================================
From: sanj on 17 Feb 2005 14:36 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, 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 > ================================================ > >
From: David M. Marcovitz on 17 Feb 2005 14:51 Page Up and Space Bar won't work, but you can make the button large enough so fine mouse control is not necessary. --David -- David M. Marcovitz Director of Graduate Programs in Educational Technology Loyola College in Maryland Author of _Powerful PowerPoint for Educators_ http://www.loyola.edu/education/PowerfulPowerPoint/ "sanj" <pptuser(a)pptuser.com> wrote in news:#rP#IgSFFHA.3368(a)TK2MSFTNGP10.phx.gbl: > 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, its > a shame you cannot add the macro to when the first slide is viewed. > > Regards, > > Sanjay >
From: sanj on 17 Feb 2005 15:06 Yep thats what I'll do. Thanks David! "David M. Marcovitz" <marcoNOSPAM(a)loyola.edu> wrote in message news:Xns960097128D7C1marcoNOSPAMloyolaedu(a)207.46.248.16... > Page Up and Space Bar won't work, but you can make the button large > enough so fine mouse control is not necessary. > --David > > > > -- > David M. Marcovitz > Director of Graduate Programs in Educational Technology > Loyola College in Maryland > Author of _Powerful PowerPoint for Educators_ > http://www.loyola.edu/education/PowerfulPowerPoint/ > > "sanj" <pptuser(a)pptuser.com> wrote in > news:#rP#IgSFFHA.3368(a)TK2MSFTNGP10.phx.gbl: > > > 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, its > > a shame you cannot add the macro to when the first slide is viewed. > > > > Regards, > > > > Sanjay > >
First
|
Prev
|
Next
|
Last
Pages: 1 2 3 4 5 Prev: autorunning macros Next: "Paste special" not recorded in macro |