изменить цвет текста в Powerpoint в зависимости от исходного цвета

Question

У меня есть 1000 презентаций PowerPoint, где мне нужно изменить цвет шрифта от белого до черного. Я нашел http://answers.microsoft.com/en-us/office/forum/office_2007-powerpoint/vba-powerpoint-how-to-change-the-font-color-from/eea94b23-0892-437f-b64c-6a240f000227, но это работает только в том случае, если весь текст в текстовом поле белый. Во многих текстовых полях имеются ярлыки, а затем цвет не изменяется. Кто-нибудь знает, как это сделать, или просто для проверки одного персонажа за раз?

Просьба. Делать это вручную было бы ужасно.

Answer 1

В круглых номерах, например, если вы смутили oSh как Shape, получили ссылку на oSl как Slide. Вам нужно будет добавить тесты, чтобы убедиться, что в фигуре есть текстовый фрейм, а текстовый фрейм - текст. Это не будет касаться фигур в группах или текста в таблицах и т. Д., Но это начало.

For Each oSh In oSl.Shapes 
    For x = 1 To oSh.TextFrame.TextRange.Characters.Count 
     With oSh.TextFrame.TextRange.Characters(x) 
      ' if the charcter's color is white, make it black 
      If .Font.Color.RGB = RGB(255, 255, 255) Then 
       .Font.Color.RGB = RGB(0, 0, 0) 
      End If 
     End With 
    Next 
Next