GefFillFormat.Pattern (read-only property)

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