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

问：

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

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

VBA 幻灯片

不。。。。我有一个带有内容列表的文本框，我希望用户能够添加到列表中，并且文本默认为深蓝色，因为当前列表是灰色的。这将是一个每周不断增长的列表，每个新星期的列表都会增长，前几周将是灰色我已经弄清楚了如何使用 VBA 将其全部变为灰色，但当用户想要添加新文本以使其变成深蓝色时，他们不必每周手动更改颜色。

0赞 user22875845 11/8/2023

这就是我所拥有的，但它改变了一切蓝色。你能提供正确的代码吗？ActivePresentation.Slides（ActiveWindow.View.Slide.SlideNumber）。Shapes（“文本框 6”）。TextFrame.TextRange.Font.Color.RGB = RGB（0， 0， 139）

答：

1赞 Tim Williams 11/8/2023 #1

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

Sub tester()
    Dim nm
    For Each nm in Array("TextBox1","TextBox2","TextBox3")
        ResetFontColor ActivePresentation.Slides(1).Shapes(nm)
    Next s
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

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

VBA How to change text color before you start typing in a text box in PowerPoint

评论

评论