Changing bullets during presentation (HELP)

[Guest]

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]

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