PresetGradient Method [Publisher 2003 VBA Language Reference]
Sets the specified fill to a preset gradient.
expression.PresetGradient(Style, Variant, PresetGradientType)
expression Required. An expression that returns one of the objects in the Applies To list.
MsoGradientStyle
MsoGradientStyle can be one of these MsoGradientStyle constants. |
msoGradientDiagonalDown |
msoGradientDiagonalUp |
msoGradientFromCenter |
msoGradientFromCorner |
msoGradientFromTitle |
msoGradientHorizontal |
msoGradientMixed Not used with this method. |
msoGradientVertical |
Variant Required Long. The gradient variant. Can be a value from 1 to 4, corresponding to the four variants on the Gradient tab in the Fill Effects dialog box. If Style is msoGradientFromTitle or msoGradientFromCenter, this argument can be either 1 or 2.
MsoPresetGradientType
MsoPresetGradientType can be one of these MsoPresetGradientType constants. |
msoGradientBrass |
msoGradientCalmWater |
msoGradientChrome |
msoGradientChromeII |
msoGradientDaybreak |
msoGradientDesert |
msoGradientEarlySunset |
msoGradientFire |
msoGradientFog |
msoGradientGold |
msoGradientGoldII |
msoGradientHorizon |
msoGradientLateSunset |
msoGradientMahogany |
msoGradientMoss |
msoGradientNightfall |
msoGradientOcean |
msoGradientParchment |
msoGradientPeacock |
msoGradientRainbow |
msoGradientRainbowII |
msoGradientSapphire |
msoGradientSilver |
msoGradientWheat |
msoPresetGradientMixed Not used with this method. |
Example
This example adds a rectangle with a preset gradient fill to the active publication.
ActiveDocument.Pages(1).Shapes _
.AddShape(msoShapeRectangle, 90, 90, 140, 80) _
.Fill.PresetGradient Style:=msoGradientHorizontal, _
Variant:=1, PresetGradientType:=msoGradientBrass
Applies to | FillFormat Object