Powerpoint Schriftarbe auf allen Folien ändern
29.03.2019 21:24:50
Daniel
Ich will in allen Textfeldern eines Powerpoint Skripts (~1000 Seiten), alle Schriftfarben von Irgendwas (weiß, gelb, ...) auf schwarz wechseln.
Hierzu habe ich folgendes Makro aufgesetzt:
Sub Farbe_Aendern()
Dim i%, x%, tb As Shape
With ActivePresentation
For x = 1 To .Slides.Count
Set tb = .Slides(x).Shapes(1)
For i = 1 To Len(tb.TextFrame.TextRange.Characters)
With tb.TextFrame.TextRange.Characters(Start:=i, Length:=1).Font.Color
If .RGB RGB(0, 0, 0) Then .RGB = RGB(0, 0, 0)
End With
Next
Next
End With
End Sub
"Lautzeitfehler '-2147024809 (80070057)':
der angegebene Wert ist außerhalb des zulässigen Bereichs"
Habt ihr Tipps, was ich dagegen tun kann?
Viele Grüße
Daniel