FillFormat.GradientStops プロパティ (PowerPoint)

指定された塗りつぶし形式に関連付けられている GradientStops コレクションを返します。 読み取り専用です。

構文

式。GradientStops

式FillFormat オブジェクトを返す式。

戻り値

GradientStops

注釈

GradientStops.Insert メソッドを使用して、指定したオブジェクトの GradientStops コレクションにグラデーションの位置を追加します。

例

次の例では、作業中のプレゼンテーションのスライド 1 の最初の図形の塗りつぶし書式の GradientStops コレクションに 50% の位置にあるグラデーションの分岐点を追加する方法を示します。 この例を動作させるには、図形にグラデーションの塗りつぶしが適用される必要があります既に。

Public Sub GradientStops_Example() 
 
    Dim pptShape As Shape 
    Dim pptFillFormat As FillFormat 
    Dim pptGradientStops As GradientStops 
     
    Set pptShape = ActivePresentation.Slides(1).Shapes(1) 
    Set pptFillFormat = pptShape.Fill 
    Set pptGradientStops = pptFillFormat.GradientStops 
     
    pptGradientStops.Insert RGB(255, 0, 255), 0.5 
     
End Sub

関連項目

FillFormat オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。