指定した塗りつぶしの既定のグラデーションの種類を取得します。 値の取得のみ可能です。
構文
式。PresetGradientType
表現FillFormat オブジェクトを表す変数。
戻り値
MsoPresetGradientType
解説
塗りつぶしの既定のグラデーションの種類を設定するには、 PresetGradient メソッドを使用します。
PresetGradientType プロパティの値には、これらの MsoPresetGradientType 定数のいずれかを指定できます。
| msoGradientBrass |
| msoGradientCalmWater |
| msoGradientChrome |
| msoGradientChromeII |
| msoGradientDaybreak |
| msoGradientDesert |
| msoGradientEarlySunset |
| msoGradientFire |
| msoGradientFog |
| msoGradientGold |
| msoGradientGoldII |
| msoGradientHorizon |
| msoGradientLateSunset |
| msoGradient Mahogany |
| msoGradientMoss |
| msoGradientNightfall |
| msoGradientOcean |
| msoGradientParchment |
| msoGradientPeacock |
| msoGradientRainbow |
| msoGradientRainbowII |
| msoGradientSapphire |
| msoGradientSilver |
| msoGradientWheat |
| msoPresetGradientMixed |
例
次の使用例は、myDocument 内で塗りつぶしが既定のグラデーションの [こけ] であるすべての図形に対して、既定のグラデーションを [霧] に変更します。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
With s.Fill
If .PresetGradientType = msoGradientMoss Then
.PresetGradient = msoGradientFog
End If
End With
Next
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。