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