GefObject.FillAnim (read-only property)

Gets the GefFillAnim format for the object.
Syntax: Set GefFillAnim = object.FillAnim
Description: The FillAnim is the fill animation on the object. To access the interior portion of the object, use the Fill property.

Returns Nothing if this property is not valid for the object.


Sub GefObject_FillAnim()
    Dim oCimObj As GefObject
    Dim oCimFillAnim As GefFillAnim
    Set oCimObj = CimGetObject
    Set oCimFillAnim = oCimObj.FillAnim
    If oCimFillAnim Is Nothing Then
        MsgBox "This object does not support fill animations"
        MsgBox "This object does support fill animations"
    End If
End Sub