多个对象![]() ![]() ![]() |
代表线条和箭头格式。对于线条,LineFormat 对象包含该线条自身的格式信息;对于有边界的形状,该对象包含形状的边界的格式信息。
使用 Line 属性返回单个 LineFormat 对象。以下示例向 myDocument
中添加蓝色的虚线。在该线条的起点有一个短而窄的椭圆,在终点有一个长而宽的三角形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With