次の方法で共有

FillFormat.GradientDegree プロパティ (Publisher)

  • [アーティクル]

1 色のグラデーション塗りつぶしの濃淡を示す 単精度 浮動小数点型 (Single) の値を返します。 図形のグラデーションの前景色に黒が混合される場合、値は 0 です。白が混合される場合、値は 1 です。その間の明るさの前景色が混合される場合、値は 0 と 1 の間の数値になります。 読み取り専用です。

構文

式。GradientDegree

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

戻り値

1 行

注釈

OneColorGradient メソッドを使用すると、塗りつぶしのグラデーションの明度を設定できます。

例

次の使用例は、作業中の文書に四角形を追加し、"四角形 2" という名前の図形のグラデーションに一致するように塗りつぶしのグラデーションの明るさを設定します。 四角形 2 に 1 色のグラデーションが設定されていない場合、エラーが発生します。

Dim sngDegree As Single 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store degree of one-color gradient. 
 sngDegree = .Item("Rectangle 2").Fill.GradientDegree 
 ' Add new rectangle. 
 With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill 
 ' Set color and gradient for new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=1, Degree:=sngDegree 
 End With 
End With

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

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