如何设置TextRange的填充颜色？

Question

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

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

Answer 1

您无法“填充”TextRange对象，但如果您尝试填充包含TextRange的文本框，则填充TextRange对象上方的两个父对象的形状。

e.g。

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)