GefLineFormat.EndArrowheadWidth (property)

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

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


Sub LineFormat_EndArrowheadWidth()
    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.EndArrowheadWidth = 300
    End If
    cimgetscreen.Refresh False
End Sub