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. Example: 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" Else MsgBox "This
object does support fill animations" End If End Sub |