指定された塗りつぶしのグラデーションのスタイルを取得します。 値の取得のみ可能です。
構文
式。GradientStyle
式FillFormat オブジェクトを表す変数。
戻り値
MsoGradientStyle
注釈
塗りつぶしのグラデーションのスタイルを設定するには、OneColorGradient、PresetGradient、または TwoColorGradient メソッドを使用します。 グラデーションが設定されていない塗りつぶしに対してこのプロパティを取得しようとすると、エラーが発生します。 塗りつぶしにグラデーションが設定されているかどうかを調べるには、 Type プロパティを使用します。
GradientStyle プロパティによって返される値には、これらの 可能 定数のいずれかを指定できます。
msoGradientDiagonalDown |
msoGradientDiagonalUp |
msoGradientFromCenter |
msoGradientFromCorner |
msoGradientFromTitle |
msoGradientHorizontal |
msoGradientMixed |
msoGradientVertical |
例
次の使用例は、"rect1" という名前の図形があるプレゼンテーション myDocument に四角形を追加し、"rect1" と同じグラデーションの種類を設定します。使用例が動作するためには、rect1 にグラデーションの塗りつぶしが設定されている必要があります。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
gradStyle1 = .Item("rect1").Fill.GradientStyle
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient gradStyle1, 1, 1
End With
End With
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。