MsoArrowheadWidth can be one of these MsoArrowheadWidth constants. |
msoArrowheadNarrow |
msoArrowheadWidthMedium |
msoArrowheadWide |
msoArrowheadWidthMixed |
expression.EndArrowheadWidth
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example adds a line to myDocument
. There’s a short, narrow oval on the line's starting point and a long, wide triangle on its end point.
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With