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