Change bullet colour using VBA in PP2003

Topic

New Reply

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

Reply | Quote

Replies

You can reference the bullet like this (assuming oshp is a reference to the shape with the text)
oshp.TextFrame.TextRange.ParagraphFormat.Bullet.Font.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!

Reply | Quote

You can reference the bullet like this (assuming oshp is a reference to the shape with the text)
oshp.TextFrame.TextRange.ParagraphFormat.Bullet.Font.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. :clapping::fanfare:

Reply | Quote