如何设置 TextRange 的填充颜色？

Question

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

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

Answer 1

您不能 'fill' 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)

如何设置 TextRange 的填充颜色？

How do you set the fill color of a TextRange?

powerpoint

vba

textrange