Results 1 to 3 of 3
  1. #1
    4 Star Lounger
    Join Date
    Jan 2002
    Location
    London, Gtr London, England
    Posts
    416
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Change bullet colour using VBA in PP2003

    Is it possible to change the colours of the bullets (Level 1 thru to level 5) in a ppt?

    That is, I could have a presentation with n pages and now I would like to change the default bullet colours for all pages (the colours is determined by the available six company colours to the user)? This needs to be done as a macro so that the user just has to select the available company colours & it changes the bullets to match the selected colour.

    Thanks.

    Robie
    Thanks.
    Robie

  2. #2
    3 Star Lounger
    Join Date
    Feb 2007
    Location
    Durham, Durham, United Kingdom
    Posts
    286
    Thanks
    0
    Thanked 10 Times in 10 Posts
    You can reference the bullet like this (assuming oshp is a reference to the shape with the text)
    oshp.TextFrame.TextRange.ParagraphFormat.Bullet.Fo nt.Color.RGB = RGB(255, 0, 0) you would then need to check every shape - CAN it have text, does it,does it have bullets >>> change colour.

    Assuming your users follow the master with their work, (which may not be true!)
    You might want to do this on the slide master instead of every slide

    If you need to build a solution giving the user the option of a preset series of RGBs you would need to make a user form or dropdown menu which would be more tricky!

  3. #3
    4 Star Lounger
    Join Date
    Jan 2002
    Location
    London, Gtr London, England
    Posts
    416
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Thumbs up

    Quote Originally Posted by JohnWilson View Post
    You can reference the bullet like this (assuming oshp is a reference to the shape with the text)
    oshp.TextFrame.TextRange.ParagraphFormat.Bullet.Fo nt.Color.RGB = RGB(255, 0, 0) you would then need to check every shape - CAN it have text, does it,does it have bullets >>> change colour.

    Assuming your users follow the master with their work, (which may not be true!)
    You might want to do this on the slide master instead of every slide

    If you need to build a solution giving the user the option of a preset series of RGBs you would need to make a user form or dropdown menu which would be more tricky!
    Thanks John. I managed to create a userform. Your VBA bit was the missing piece. It works a treat.
    Thanks.
    Robie

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •