グラデーションに分岐点を追加します。
構文
式。挿入 (RGB、 位置、 透明度、 インデックス)
式GradientStops オブジェクトを返す式。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| RGB | 必須 | MsoThemeColorSchemeIndex | グラデーションの分岐点の色を指定します。 |
| Position | 必須 | 単精度浮動小数点型 (Single) | グラデーション内の分岐点の場所をパーセントで指定します。 |
| Transparency | 省略可能 | 単精度浮動小数点型 (Single) | グラデーション分岐点の色の不透明度を指定します。 |
| Index | 省略可能 | 長整数型 (Long) | 分岐点のインデックス番号です。 |
注釈
グラデーションとは別に 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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。