HI all,
Im new using macros and im triyng to make something like this:
Im on a slide with topics like:
º Slide 2 (button)
º Slide 3 (button)
º Slide 4 (button)
When i press slide 2 i want to change the bullet type for another one (just
to simulate a visited link, cause this is a button)
i made the macro and it works only in slide construction mode, but not in
the presentation.
The macro is like this:
Sub Macro2()
With ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet
.Visible = msoTrue
With .Font
.Name = "Wingdings"
.Color.RGB = RGB(Red:=204, Green:=153, Blue:=0)
End With
.Character = 252
End With
ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick).Hyperlink.Follow
End Sub
I know that will have to change the
ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick).Hyperlink.Follow
for
ActivePresentation.SlideShowWindow.View.GotoSlide (3) (WORKS)
only this line works, what i have to do with the rest of code to work in
presentation?
Thx
Steve Rindsberg - 21 Jun 2007 13:45 GMT
Have a look here for starters:
Macros I record in Normal/Slide view don't work in Slide Show
http://www.pptfaq.com/FAQ00159.htm
You'll probably want to give your shape a name to make it easier to locate on the
slide then do something like:
With ActivePresentation.Slides(x).Shapes("YourShapeName")
With .Font
' etc etc etc
End With
' other code here
End With
Edit the name of a shape
http://www.pptfaq.com/FAQ00584.htm
> HI all,
>
[quoted text clipped - 36 lines]
>
> Thx
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================