| Sets the fill style to a gradient fill based on one color. | |
| Syntax: | object.OneColorGradient Style, GradVariant, Degree, Shades |
| Parameters: |
Style As
GefGradientStyleEnum
-
GradVariant
As GefGradientVariantEnum
-
Optional Degree As float
-
Optional Shades As long
-
|
| Description: | Sets the Type of the fill to
GefFillGradient and the GradientColorType to
GefGradientOneColor. The floatDegree parameter is a number between zero and one. A value of zero means that black is mixed in with the shape's foreground color to form the gradient. A value of one means that white is mixed in. Values between zero and one mean that a darker or lighter shade of the foreground color is mixed in. Shades: The Shades argument is retained only for backward compatibility and does not affect the fill. Previous versions: The Shades parameter determines how many shades are used in the transition from one color to the other. The higher the number, the smoother the transition will be. Using large values may negatively impact performance. CimEdit uses a default value of 64. Example: Sub FillFormat_OneColorGradient() Dim oCimObj As GefObject Dim oCimFillFmt As
GefFillFormat Set oCimObj = CimGetObject Set oCimFillFmt =
oCimObj.Fill oCimFillFmt.OneColorGradient
gefGradientToCorner, _ gefGradientVar1,
1, 256 CimGetScreen.Refresh False End Sub |