GefExprListAnimElement.AnimatesFont (property)

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

Syntax:

Boolean = object.AnimatesFont
object.AnimatesFont = Boolean

Description:

The AnimatesFont property toggles whether or not the objects font is changed.

Example:

Sub GefExprListAnimElement_AnimatesFont()

    Dim oCimExprListAnim As
GefExprListAnim

    Dim oCimExprListAnimElmt As
GefExprListAnimElement

    Dim oCimFontFmt As
GefFontFormat

    Set oCimExprListAnim =
CimGetObject.ExprListAnim

    Set oCimExprListAnimElmt =
oCimExprListAnim.Add

oCimExprListAnimElmt.Expression ="1"

    oCimExprListAnimElmt.AnimatesFont =
True

    oCimExprListAnimElmt.GetFont
True

    oCimFontFmt.Name ="Symbol"
    MsgBox "The font was changed to " & oCimFontFmt.Name
    CimGetScreen.Refresh False

End Sub