VBA 如何在开始在 PowerPoint 中的文本框中键入内容之前更改文本颜色

Question

在 PowerPoint 中，我有一个文本框，其中已有文本，颜色为灰色。我想添加到该文本框并将新文本颜色设置为深蓝色，以便您可以看到新内容。

我尝试更改文本框颜色，但这会更改整个文本框的颜色。我需要新文本的颜色为深蓝色

Answer 1

在现有灰色文本的末尾添加一个空格 - 选择它并将字体颜色设置为蓝色。当用户输入其他文本时，它会呈蓝色。

Sub tester()
    ResetFontColor ActivePresentation.Slides(1).Shapes(1)
End Sub

Sub ResetFontColor(shp As Shape)
    With shp.TextFrame.TextRange
        .Text = .Text & " "                  'add a space
        .Font.Color = RGB(200, 200, 200)     'set all text to grey
        .Characters(Len(.Text), 1).Font.Color = vbBlue 'change font color of the space
    End With
End Sub