GefFillFormat.Type (read-only property)

Gets the type of fill (solid, patterned, etc.).
Syntax: GefFillTypeEnum = object.Type
Description: You can set the type indirectly using the Solid, Patterned, OneColorGradient, or TwoColorGradient methods.


Sub FillFormat_Type()
    Dim oCimObj As GefObject
    Dim oCimFillFmt As GefFillFormat
    Set oCimObj = CimGetObject
    Set oCimFillFmt = oCimObj.Fill
    If Not oCimFillFmt Is Nothing Then
        Select Case oCimFillFmt.Type
            Case gefFillMixedValue
                MsgBox "The type is unknown or is not set"
            Case gefFillNone
                MsgBox "The selected object is not filled"
            Case gefFillSolid
                MsgBox "The selected object is solid"
            Case gefFillPattern
                MsgBox "The selected object is using a pattern"
            Case gefFillGradient
                MsgBox "The selected object is using a gradient"
        End Select
    End If
End Sub