Shapes.AddCurve 方法 (Excel)

返回一个 Shape 对象，该对象代表工作表上的贝塞尔曲线。

语法

表达式。AddCurve (SafeArrayOfPoints)

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
SafeArrayOfPoints	必需	Variant	由指定曲线的顶点和控制点的坐标对组成的数组。 指定的第一个点是起始顶点，接下来的两个点是第一个贝塞尔段的控制点。 该曲线每增加一条线段，就要为其指定一个顶点和两个控制点。 指定的最后一个点是曲线的结束顶点。 请注意，必须指定的点数始终为 3n + 1，其中 n 为曲线的线段个数。

返回值

Shape

示例

以下示例将双段贝塞尔曲线添加到 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。