指定した塗りつぶしのグラデーションのバリエーションを、1 から 4 までの整数値で取得します。 値の取得のみ可能です。
構文
式。GradientVariant
式FillFormat オブジェクトを表す変数。
戻り値
Long
注釈
グラデーションの種類が msoGradientFromTitle または バリエーション の場合は、このプロパティは、1 または 2 のいずれかを返します。
このプロパティの値は、[ 図形の塗りつぶし] タブで 長いグラデーション] サブタブのバリエーション (左右からおよび上から下に番号が付けられます) に対応します。
このプロパティは値の取得のみ可能です。 塗りつぶしのグラデーションのバリエーションを設定するには、OneColorGradient、PresetGradient、または TwoColorGradient メソッドを使用します。
例
次の使用例は、myDocument に四角形を追加し、"rect1" という名前の図形と同じグラデーションの種類を設定します。使用例が動作するためには、rect1 にグラデーションの塗りつぶしが設定されている必要があります。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
gradVar1 = .Item("rect1").Fill.GradientVariant
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient msoGradientHorizontal, gradVar1, 1
End With
End With
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。