Shapes.AddCurve 方法 (Word)

返回一个 Shape 对象，该对象代表绘图画布中的贝塞尔曲线。

语法

表达式。AddCurve (SafeArrayOfPoints)

expression 是必需的。 一个代表 Shapes 对象的变量。

参数

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

返回值

Shape

示例

本示例在新绘图画布上添加一条贝赛尔曲线。

Sub CanvasBezier() 
 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 Dim sngArray(1 To 7, 1 To 2) As Single 
 
 Set docNew = Documents.Add 
 
 'Create a new drawing canvas 
 Set shpCanvas = docNew.Shapes.AddCanvas(Left:=100, _ 
 Top:=100, Width:=300, Height:=50) 
 
 sngArray(1, 1) = 0 
 sngArray(1, 2) = 0 
 sngArray(2, 1) = 50 
 sngArray(2, 2) = 50 
 sngArray(3, 1) = 100 
 sngArray(3, 2) = 0 
 sngArray(4, 1) = 150 
 sngArray(4, 2) = 50 
 sngArray(5, 1) = 200 
 sngArray(5, 2) = 0 
 sngArray(6, 1) = 250 
 sngArray(6, 2) = 50 
 sngArray(7, 1) = 300 
 sngArray(7, 2) = 0 
 
 'Add Bezier curve to drawing canvas 
 shpCanvas.CanvasItems.AddCurve _ 
 SafeArrayOfPoints:=sngArray 
 
End Sub

另请参阅

Shapes 集合对象

支持和反馈

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