FillFormat.GradientColorType プロパティ (Publisher)

指定した塗りつぶしのグラデーションの色の種類を示す MsoGradientColorType 定数を返します。 読み取り専用です。

構文

式。GradientColorType

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

戻り値

MsoGradientColorType

注釈

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

GradientColorType プロパティの値には、Microsoft Office タイプ ライブラリで宣言されている MsoGradientColorType クラスの定数のいずれかを指定できます。

例

次の使用例は、作業中の文書の 1 番目のページ内で 2 色のグラデーションの塗りつぶしが設定されたすべての図形の塗りつぶしを、既定のグラデーションの塗りつぶしに変更します。

Dim shpLoop As Shape 
 
' Loop through collection of shapes. 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 With shpLoop.Fill 
 ' Test for two-color gradient. 
 If .GradientColorType = msoGradientTwoColors Then 
 ' Apply a preset gradient. 
 .PresetGradient Style:=msoGradientHorizontal, _ 
 Variant:=1, PresetGradientType:=msoGradientBrass 
 End If 
 End With 
Next shpLoop 

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

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