GefFillFormat.OneColorGradient (method)

Sets the fill style to a gradient fill based on one color.
Syntax: object.OneColorGradient Style, GradVariant, Degree, Shades
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.

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.


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