次の方法で共有

FillFormat.PresetGradientType プロパティ (Publisher)

  • [アーティクル]

指定した塗りつぶしの事前設定されたグラデーションの種類を表す MsoPresetGradientType 定数を返します。 読み取り専用です。

構文

式。PresetGradientType

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

戻り値

MsoPresetGradientType

注釈

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

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

例

次の使用例は、作業中の文書の先頭ページにある最初の図形の塗りつぶしが、既定のグラデーションの塗りつぶし [霧] に設定されていない場合は、その塗りつぶしを [霧] に変更します。 この使用例では、作業中の文書の先頭ページに図形が少なくとも 1 つ存在することを前提としています。

Sub SetGradient() 
 With ActiveDocument.Pages(1).Shapes(1).Fill 
 If .PresetGradientType <> msoGradientFog Then 
 .PresetGradient Style:=msoGradientHorizontal, _ 
 Variant:=1, PresetGradientType:=msoGradientFog 
 End If 
 End With 
End Sub

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

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