Bullet colours not changing

[Robie]

Hi

I set the colour for my bullets/page number backgroun depending the user selection. It works fine for standard slides but doesn't for some. I don't understand. Attached image shows the bullet to be mauve colour when they should be blue.

bulletsnot changing.png

I use the following routine (supplied by Hans to change the colours of the bullet).

Code: Select all

Sub SetBulletColor(lngColour As Long)
    Dim i As Integer
    
    ' Set color for all bullet levels
    For i = 1 To 5
      ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Levels(i).ParagraphFormat.Bullet.Font.Color = lngColour
    Next i
End Sub

To test, I started new presentation and copy the contents of the offending textbox but it still comes across as 'mauve' bullet and I can't change it. In the new presentation if I create a similar slide and add info to it then the bullets are *correctly* coloured. Any ideas, highly appreciated - running against time here.

Thanks.

[HansV]

My code applies to the text placeholders, not to text boxes.

[Robie]

My code applies to the text placeholders, not to text boxes.

Ah! OK. That makes sense. Thanks for clearing that up Hans.