如何设置TextRange的填充颜色？

Question

在PowerPoint中，我有一个TextRange对象，我想设置填充颜色(而不是字体颜色)。

我知道我可以通过Fill.ForeColor设置一个形状，但是对于一个TextRange对象来说呢？

Answer 1

您不能“填充”一个TextRange对象，但是如果您试图填充包含TextRange的文本框，则可以填充该形状，该形状位于TextRange对象之上。

例如：

Dim oShp as Shape
Set oShp = ActivePresentation.Slides(1).Shapes(1)
' Fill the text with red
oShp.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255,0,0)
' Fill the text box with green
oShp.Fill.ForeColor.RGB = RGB(0,255,0)