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
Change bullet colours under VBA
-
- 5StarLounger
- Posts: 656
- Joined: 18 Feb 2010, 14:26
Change bullet colours under VBA
You do not have the required permissions to view the files attached to this post.
-
- Administrator
- Posts: 78686
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: Change bullet colours under VBA
See if you can modify this to suit your needs:
Code: Select all
Sub SetBulletColor()
Dim lngColor As Long
Dim i As Integer
' Set color
lngColor = vbRed
For i = 1 To 5
ActivePresentation.SlideMaster.TextStyles(ppBodyStyle) _
.Levels(i).ParagraphFormat.Bullet.Font.Color = lngColor
Next i
End Sub
Best wishes,
Hans
Hans
-
- 5StarLounger
- Posts: 656
- Joined: 18 Feb 2010, 14:26
Re: Change bullet colours under VBA
Hey Hans - you are a STAR man. That works beautifully.HansV wrote:See if you can modify this to suit your needs:
Code: Select all
Sub SetBulletColor() Dim lngColor As Long Dim i As Integer ' Set color lngColor = vbRed For i = 1 To 5 ActivePresentation.SlideMaster.TextStyles(ppBodyStyle) _ .Levels(i).ParagraphFormat.Bullet.Font.Color = lngColor Next i End Sub