Quote:
Originally Posted by franklyorange
I'm editing an existing powerpoint preso, and I simply want to change the color of text in bullets..I've tried hitting, format, bullets, or just highlighting the text and changing the Font color, it will not change it?????
|
Hi,
If you want to change the text with only one color, then please try with following code:
Sub Macro1()
Dim oshlp As Shape
ActiveWindow.Selection.ShapeRange.TextFrame.TextRa nge.Select
ActiveWindow.Selection.TextRange.Font.Color.Scheme Color = ppAccent2
ActiveWindow.Selection.TextRange.Font.Color.Scheme Color = ppAccent2
ActiveWindow.Selection.TextRange.Font.Color.Scheme Color = ppAccent2
End Sub
Regards,
Manoj