根据初始颜色更改Powerpoint中文本的颜色

时间:2015-01-16 13:05:05

标签: vba colors powerpoint

我有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但这仅在文本框中的所有文本都是白色时才有效。目前许多文本框中都有高亮显示,然后颜色不会改变。任何人都知道如何做到这一点,或者只是一次检查一个角色?

请。手动完成它会很糟糕。

1 个答案:

答案 0 :(得分: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