GefLineFormat.BeginArrowheadLength (property)

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

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


Sub LineFormat_BeginArrowheadLength()
    Dim oCimObj As GefObject
    Dim oCimLineFmt As GefLineFormat
    Set oCimObj = CimGetObject
    Set oCimLineFmt = oCimObj.Line
    If oCimLineFmt.BeginArrowheadStyle = gefArrowheadOpen Or _
          oCimLineFmt.BeginArrowheadStyle = gefArrowheadTriangle Then
        oCimLineFmt.BeginArrowheadLength = 800
    End If
    CimGetScreen.Refresh False
End Sub