FillFormat.GradientVariant プロパティ (Publisher)

長い 指定された塗りつぶしのグラデーションのバリエーションを示す値を返します。 一般に、値は、多くのグラデーション塗りつぶしの場合は 4 に 1 の整数です。 グラデーションの種類が msoGradientFromTitle または バリエーション の場合は、このプロパティは、1 または 2 のいずれかを返します。

このプロパティの値は、[ 塗りつぶし効果] ダイアログ ボックスの [ グラデーション] タブのバリエーション (左右からおよび上から下に番号が付けられます) に対応しています。 読み取り専用です。

構文

式。GradientVariant

式FillFormat オブジェクトを表す変数。

戻り値

Long

注釈

OneColorGradient 、 PresetGradient 、または TwoColorGradient メソッドを使用すると、塗りつぶしのグラデーションのバリエーションを設定できます。

例

次の使用例は、作業中の文書に四角形を追加し、"rect1" という名前の図形と同じグラデーションのバリエーションを設定します。 この使用例が動作するためには、rect1 にグラデーションの塗りつぶしが設定されている必要があります。

Dim intVariant As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient variant of rect1. 
 intVariant = .Item("rect1").Fill.GradientVariant 
 ' Add new rectangle. 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=40, Height:=80).Fill 
 ' Set color and gradient of new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=intVariant, Degree:=1 
 End With 
End With 

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

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