Gets the fill pattern being used as a gefPatternEnum. | |
Syntax: | GefPatternEnum = object.Pattern |
Description: | This property is only valid if the Type of
the GefFillFormat is GefFillPattern. Example: Sub FillFormat_Pattern() Dim oCimObj As GefObject Dim oCimFillFmt As
GefFillFormat Set oCimObj = CimGetObject Set oCimFillFmt =
oCimObj.Fill If Not oCimFillFmt Is Nothing
Then Select Case
oCimFillFmt.Pattern Case
gefPatternMixedValue MsgBox
"The pattern is unknown or is not set" Case
gefPatternLightHorizontal MsgBox
"The pattern is set to light horizontal" Case
gefPatternLightVertical MsgBox
"The Pattern is set to light vertical" Case
gefPattern50Percent MsgBox
"The Pattern is set to 50%" Case
gefPatternClassic2 MsgBox
"The Pattern is set to classic style 2" Case
gefPatternClassic3 MsgBox
"The Pattern is set to classic style 3" Case
gefPatternClassic4 MsgBox
"The Pattern is set to classic style 4" Case
gefPatternClassic5 MsgBox
"The Pattern is set to classic style 5" Case
gefPatternClassic7 MsgBox
"The Pattern is set to classic style 7" Case
gefPatternClassic8 MsgBox
"The Pattern is set to classic style 8" Case
gefPatternClassic9 MsgBox
"The Pattern is set to classic style 9" Case
gefPatternDarkDiamond MsgBox
"The Pattern is set to dark diamond" Case
gefPatternDarkDownwardDiagonal MsgBox
"The Pattern is set to dark downward diagonal" Case
gefPatternDarkGrid MsgBox
"The Pattern is set to dark grid" Case
gefPatternDarkHorizontal MsgBox
"The Pattern is set to dark horizontal" Case
gefPatternDarkUpwardDiagonal MsgBox
"The Pattern is set to dark upward diagonal" Case
gefPatternDarkVertical MsgBox
"The Pattern is set to dark vertical" Case
gefPatternLightWideVertical MsgBox
"The Pattern is set to light wide vertical" Case
gefPatternDarkWideVertical MsgBox
"The Pattern is set to light down wide vertical" Case
gefPatternLightDownwardDiagonal MsgBox
"The Pattern is set to light downward diagonal" Case
gefPatternDarkDownwardDiagonal MsgBox
"The Pattern is set to dark downward diagonal" Case
gefPatternLightUpwardDiagonal MsgBox
"The Pattern is set to light upward diagonal" Case
gefPatternDarkUpwardDiagonal MsgBox
"The Pattern is set to dark upward diagonal" Case
gefPatternLightGrid MsgBox
"The Pattern is set to light grid" Case
gefPatternDarkGrid MsgBox
"The Pattern is set to dark grid" Case
gefPatternLightDiamond MsgBox
"The Pattern is set to light diamond" Case
gefPatternDarkDiamond MsgBox
"The Pattern is set to dark diamond" Case
gefPatternDarkHorizontal MsgBox
"The Pattern is set to dark horizontal" Case
gefPatternLightWideHorizontal MsgBox
"The Pattern is set to light wide horizontal" Case
gefPatternDarkWideHorizontal MsgBox
"The Pattern is set to dark wide horizontal" End
Select End If End Sub |