| Gets the style of the gradient as a gefGradientStyleEnum. | |
| Syntax: | GefGradientStyleEnum = object.GradientStyle |
| Description: | This property is only valid if the Type of
the GefFillFormat is GefFillGradient. Example: Sub FillFormat_GradientStyle() Dim oCimObj As GefObject Dim oCimFillFmt As
GefFillFormat Set oCimObj = CimGetObject Set oCimFillFmt =
oCimObj.Fill Select Case
oCimFillFmt.GradientStyle Case
gefGradientStyleMixedValue MsgBox
"The gradient style is in an unknown state" Case
gefGradientHorizontal MsgBox
"The gradient style is horizontal" Case
gefGradientVertical MsgBox
"The gradient style is vertical" Case
gefGradientDiagonalUp MsgBox
"The gradient style is diagonal up" Case
gefGradientDiagonalDown MsgBox
"The gradient style is diagonal down" Case
gefGradientFromCorner MsgBox
"The gradient style is from corner" Case
gefGradientToCorner MsgBox
"The gradient style is to corner" Case
gefGradientFromCenter MsgBox
"The gradient style from center" End Select End Sub |