Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / General PowerPoint Questions / June 2007

Tip: Looking for answers? Try searching our database.

Changing bullets during presentation (HELP)

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
John - 21 Jun 2007 10:49 GMT
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
================================================
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.