GefExprListAnimElement.GetLine (method)

Gets the line format that is applied if this element is used.
Syntax: Set GefLineFormat = object.GetLine ( Create )
Optional Create As Boolean -
Description: The format is only applied if the AnimatesLine property is true.


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