BeginArrowheadStyle Property

MsoArrowheadStyle

MsoArrowheadStyle can be one of these MsoArrowheadStyle constants.
msoArrowheadNone
msoArrowheadOval
msoArrowheadStyleMixed
msoArrowheadDiamond
msoArrowheadOpen
msoArrowheadStealth
msoArrowheadTriangle

expression.BeginArrowheadStyle

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds a line to the active document. There's a short, narrow oval on the line's starting point and a long, wide triangle on its end point.

Dim docActive As Document

Set docActive = ActiveDocument
With docActive.Shapes.AddLine(100, 100, 200, 300).Line
    .BeginArrowheadLength = msoArrowheadShort
    .BeginArrowheadStyle = msoArrowheadOval
    .BeginArrowheadWidth = msoArrowheadNarrow
    .EndArrowheadLength = msoArrowheadLong
    .EndArrowheadStyle = msoArrowheadTriangle
    .EndArrowheadWidth = msoArrowheadWide
End With

Applies to | LineFormat Object