MsoArrowheadLength can be one of these MsoArrowheadLength constants. |
msoArrowheadLengthMixed |
msoArrowheadShort |
msoArrowheadLengthMedium |
msoArrowheadLong |
expression.EndArrowheadLength
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