GradientStops オブジェクト (Office)

GradientStop オブジェクトのコレクションを格納します。

注釈

グラデーションとは別に 1 つの色の状態からスムーズに移行します。 このセクションのエンドポイントを分岐点と呼びます。

例

次の例は、Microsoft PowerPoint に、3 色のグラデーションの分岐点を作成します。

Sub gradients() 
 Set myDocument = ActivePresentation.Slides(1) 
 Set GradientShapeFill = myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill 
 With GradientShapeFill 
 .ForeColor.RGB = RGB(0, 128, 128) 
 .OneColorGradient msoGradientHorizontal, 1, 1 
 .GradientStops.Insert RGB(255, 0, 0), 0.25 
 .GradientStops.Insert RGB(0, 255, 0), 0.5 
 .GradientStops.Insert RGB(0, 0, 255), 0.75 
 End With 
End Sub

関連項目

• GradientStops オブジェクト メンバー
• オブジェクト モデル リファレンス

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

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