GefLineFormat.BeginArrowheadWidth (property)

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

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


Sub LineFormat_BeginArrowheadWidth()
    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.BeginArrowheadWidth = 400
    End If
    CimGetScreen.Refresh False
End Sub