Как изменить цвет пули во всей презентации ppt vba - PullRequest
Новая
       23

Как изменить цвет пули во всей презентации ppt vba

0 голосов
/ 06 марта 2019

пытается изменить цвет различных пуль в презентации.Пули имеют разные формы.Всегда появляется код ошибки -2147024809.

Видите, что следует изменить?Большое спасибо за любую помощь!

Sub ReplacebulletColors () 

Dim lFindColor As Long
Dim lReplaceColor As Long
Dim oSl As Slide
Dim oSh As Shape
Dim x As Long

lFindColor = RGB(1, 98, 155)
lReplaceColor = RGB(192, 0, 0)

For Each oSl In ActivePresentation.Slides
    For Each oSh In oSl.Shapes
        With oSh

            If .TextFrame.TextRange.ParagraphFormat.Bullet.Font.Color.RGB = lFindColor Then
                   .TextFrame.TextRange.ParagraphFormat.Bullet.Font.Color.RGB = lReplaceColor
            End If

        End With
    Next
Next

End Sub

...