Gets whether it is one or two color gradient shading as gefGradientColorTypeEnum. | |
Syntax: | GefGradientColorTypeEnum = object.GradientColorType |
Description: | This property is only valid if the Type of
the GefFillFormat is GefFillGradient. You can set this property by using the OneColorGradient or TwoColorGradient methods. Example: Sub FillFormat_GradientColorType() Dim oCimObj As GefObject Dim oCimFillFmt As
GefFillFormat Set oCimObj = CimGetObject Set oCimFillFmt =
oCimObj.Fill Select Case
oCimFillFmt.GradientColorType Case
gefGradientMixedValue MsgBox
"The current objects fill gradient type " & _ "is
unknown" Case
gefGradientOneColor MsgBox
"The current objects fill gradient type " & _ "is
set to one color" Case
gefGradientTwoColor MsgBox
"The current objects fill gradient type " & _ "is
set to two colors" End Select End Sub |