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.

Example:

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