GefExprListAnimElement.AnimatesFill (property)

Gets and sets whether or not the animation element animates the fill attributes of the object.

Syntax:

Boolean = object.AnimatesFill
object.AnimatesFill = Boolean

Description:

The AnimatesFill property toggles whether or not the objects color is animated.

Example:

Sub ExprListAnimElement_AnimatesFill()

    Dim oCimExprListAnim As
GefExprListAnim

    Dim oCimExprListAnimElmt As
GefExprListAnimElement

    Dim oCimFillFmt As
GefFillFormat

    Set oCimExprListAnim =
CimGetObject.ExprListAnim

    Set oCimExprListAnimElmt =
oCimExprListAnim.Add

oCimExprListAnimElmt.Expression ="1"

    oCimExprListAnimElmt.AnimatesFill =
True

    Set oCimFillFmt =
oCimExprListAnimElmt.GetFill(True)

oCimFillFmt.Solid

    oCimFillFmt.ForeColor.RGB =
&HBB& 'red

CimGetScreen.Refresh False

End Sub