GefLineFormat.EndArrowheadLength (property)

Gets and sets the length of the end arrowhead in TWIPS.
Syntax: VARIANT = object.EndArrowheadLength
object.EndArrowheadLength = VARIANT
Description: Only line (gefLine) objects support this property.

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


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