次の方法で共有

GradientStops.Delete メソッド (Office)

グラデーションの分岐点を削除します。

構文

式。削除 (インデックス)

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

パラメーター

名前 必須 / オプション データ型 説明
Index 省略可能 整数型 (Integer) グラデーションの分岐点のインデックス番号です。

注釈

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

例

次の例は、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 
 GradientShapeFill.GradientStops.Delete (1) 
End Sub

関連項目

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

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