GefLineFormat.EndArrowheadStyle (property)

Gets and sets the style of the end arrowhead as a GefArrowheadStyleEnum.

Syntax:

GefArrowheadStyleEnum = object.EndArrowheadStyle
object.EndArrowheadStyle = GefArrowheadStyleEnum

Description:

Only line (gefLine) objects support this property.

If the object does not support this property the return value is undefined.

Example:

Sub LineFormat_EndArrowheadLength()

Dim oCimObj As GefObject

    Dim oCimLineFmt As
GefLineFormat

Set oCimObj = CimGetObject

    Set oCimLineFmt =
oCimObj.Line

    If oCimLineFmt.EndArrowheadStyle =
gefArrowheadOpen Or oCimLineFmt.EndArrowheadStyle =
gefArrowheadTriangle Then

        oCimLineFmt.EndArrowheadLength
= 800

    End If
    cimgetscreen.Refresh False

End Sub