GefExprListAnimElement.GetLine (method)

Gets the line format that is applied if this element is used.

Syntax:

Set GefLineFormat = object.GetLine ( Create )

Parameters:

Optional Create As Boolean -

Description:

The format is only applied if the AnimatesLine property is true.

Example:

Sub ExprListAnimElement_GetLine()

    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
    CimGetScreen.Refresh False

End Sub