GefObject.FillMode (property)

Gets and sets the current fill mode used for the static filling and fill animation of the object.
Syntax: GefFillModeEnum = object.FillMode
object.FillMode = GefFillModeEnum
Description: This property is shared by both the static filling (ForegroundFill and PercentForegroundFill) and fill animation(FillAnim) of an object.

Example:

Sub GefObject_FillMode()
    
    Dim oCimObj As GefObject
    
    Set oCimObj = CimGetObject
    Select Case oCimObj.FillMode
        Case gefFillModeMixedValue
            MsgBox "The fill mode is mixed"
        Case gefFromBottom
            MsgBox "The fill mode is from the bottom"
        Case gefFromBottomBipolar
            MsgBox "The fill mode is from the bottom bipolar"
        Case gefFromLeft
            MsgBox "The fill mode is from the left"
        Case gefFromLeftBipolar
            MsgBox "The fill mode is from the left bipolar"
        Case gefFromRight
            MsgBox "The fill mode is from the right"
        Case gefFromRightBipolar
            MsgBox "The fill mode is from the righ bipolar"
        Case gefFromTop
            MsgBox "The fill mode is from the top"
        Case gefFromTopBipolar
            MsgBox "The fill mode is from the top bipolar"
        Case gefNoFill
            MsgBox "The fill mode is set to no fill"
    End Select
    
End Sub