AddCurve方法
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
当本方法应用于 Shapes对象时，返回一个Shape对象，该对象代表工作表中的贝塞尔曲线。当本方法应用于 CanvasShapes对象时，返回一个 Shape 对象，该对象代表绘图画布中的贝塞尔曲线。
expression.AddCurve(SafeArrayOfPoints)
expression 必需。该表达式返回“应用于”列表中的对象之一。
SafeArrayOfPoints Variant 类型，必需。用于指定曲线上的顶点和控制点的坐标对数组。所指定的第一个点应是起始顶点，其余两个点应是第一个贝塞尔线段的控制点。然后，对于曲线的其余每个线段，指定一个顶点和两个控制点。所指定的最后一个点应是曲线的终止顶点。请注意，所指定的点的数目必须是 3n+1 个，其中 n 为曲线中线段的数目。
Excel VBA教程：AddCurve方法·示例
下例向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