指定した塗りつぶしに、1 色のグラデーションを設定します。
構文
式。 OneColorGradient( _Style_, _Variant_, _Degree_ )
式FillFormat オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Style | 必須 | MsoGradientStyle | グラデーションのスタイルを指定します。 |
| Variant | 必須 | 長整数型 (Long) | グラデーションのバリエーションです。 [図形の塗りつぶし] タブの [グラデーション] タブの 4 つのバリエーションに対応する 1 から 4 までの値を指定できます。Style が msoGradientFromTitle または msoGradientFromCenter の場合、この引数は 1 または 2 のいずれかになります。 |
| Degree | 必須 | 単精度浮動小数点型 (Single) | グラデーションの明るさを指定します。 0.0 (暗) から 1.0 (明) までの値を指定できます。 |
注釈
Style パラメーター値には、これらの MsoGradientStyle クラスの定数のいずれかを指定できます。
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
例
次の使用例は、1 色のグラデーションの塗りつぶしが設定された四角形を myDocument に追加します。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, 1
End With
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。