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


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