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