GefLineFormat.BeginArrowheadStyle (property)

Gets and sets the style of the begin arrowhead as a GefArrowheadStyleEnum.
Syntax: GefArrowheadStyleEnum = object.BeginArrowheadStyle
object.BeginArrowheadStyle = GefArrowheadStyleEnum
Description: Only line (gefLine) objects support this property.

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


Sub LineFormat_BeginArrowheadStyle()
    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