如何设置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)