返回或设置指定线段起点一端的箭头宽度。MsoArrowheadWidth,可读写。
MsoArrowheadWidth 可以是下列 MsoArrowheadWidth 常量之一: |
msoArrowheadNarrow |
msoArrowheadWidthMedium |
msoArrowheadWide |
msoArrowheadWidthMixed |
expression.BeginArrowheadWidth
expression 必需。该表达式返回“应用于”列表中的一个对象。
本示例为活动文档添加一条线段。线段的起点有一个短且窄的椭圆,终点有一个长且宽的三角形。
Dim docFirst As Document Set docFirst =
Documents(1) With docFirst.Shapes.AddLine(100, 100, 200, 300).Line .BeginArrowheadLength = msoArrowheadShort .BeginArrowheadStyle = msoArrowheadOval .BeginArrowheadWidth = msoArrowheadNarrow .EndArrowheadLength = msoArrowheadLong .EndArrowheadStyle = msoArrowheadTriangle .EndArrowheadWidth = msoArrowheadWide End With