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.


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