PowerPoint VBA更改文本渐变？

Question

Powerpoint vba（2007或2010）中是否有任何东西可以让您设置或更改文本对象（文本本身）上的渐变颜色？ 我所能找到的只是预置文本效果设置。 谢谢。

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