全部显示

AddCurve 方法

当本方法应用于 Shapes 对象时，返回一个 Shape 对象，该对象代表工作表中的贝塞尔曲线。当本方法应用于 CanvasShapes 对象时，返回一个 Shape 对象，该对象代表绘图画布中的贝塞尔曲线。

expression   必需。该表达式返回“应用于”列表中的对象之一。

SafeArrayOfPoints   Variant 类型，必需。用于指定曲线上的顶点和控制点的坐标对数组。所指定的第一个点应是起始顶点，其余两个点应是第一个贝塞尔线段的控制点。然后，对于曲线的其余每个线段，指定一个顶点和两个控制点。所指定的最后一个点应是曲线的终止顶点。请注意，所指定的点的数目必须是 3n+1 个，其中 n 为曲线中线段的数目。

示例

下例向 myDocument 添加一条两线段的贝塞尔曲线。

Dim pts(1 To 7, 1 To 2) As Single
pts(1, 1) = 0
pts(1, 2) = 0
pts(2, 1) = 72
pts(2, 2) = 72
pts(3, 1) = 100
pts(3, 2) = 40
pts(4, 1) = 20
pts(4, 2) = 50
pts(5, 1) = 90
pts(5, 2) = 120
pts(6, 1) = 60
pts(6, 2) = 30
pts(7, 1) = 150
pts(7, 2) = 90
Set myDocument = Worksheets(1)
myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts