vba - Powerpoint vba更改文本渐变？

Question

Powerpoint vba（2007 或 2010）中是否有任何内容可让您设置或更改文本对象（文本本身）上的渐变颜色？我能找到的只是 presetTextEffect 设置。谢谢。

Answer 1

这是你需要的吗？...

如果是这样，这是我制作的代码。您将需要相应地改进它。应用渐变形成时有很多格式化的可能性。因此，我建议尝试并检查 VBA 帮助以获取更多信息。

Sub Test()
    Dim TXTbox As Shape
    Set TXTbox = ActivePresentation.Slides(1).Shapes(1)

        With TXTbox.TextFrame2.TextRange.Font.Fill
            .ForeColor.RGB = RGB(0, 128, 128)
            .OneColorGradient msoGradientHorizontal, 1, 1
        End With

End Sub