GefExprListAnimElement.AnimatesLine (property)

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

Syntax:

Boolean = object.AnimatesLine
object.AnimatesLine = Boolean

Description:

The AnimatesLine property toggles whether or not the line/border is animated

Example:

Sub ExprListAnimElement_AnimatesLine()

    Dim oCimExprListAnim As
GefExprListAnim

    Dim oCimExprListAnimElmt As
GefExprListAnimElement

    Dim oCimObjLineFmt As
GefLineFormat

    Set oCimExprListAnim =
CimGetObject.ExprListAnim

    Set oCimExprListAnimElmt =
oCimExprListAnim.Add

oCimExprListAnimElmt.Expression ="1"

    oCimExprListAnimElmt.AnimatesLine =
True

    Set oCimObjLineFmt =
oCimExprListAnimElmt.GetLine(True)

    oCimObjLineFmt.Weight =
200

MsgBox "The weight of the line is " & oCimObjLineFmt.Weight

End Sub