Excel VBA教程:AddCurve方法

当本方法应用于 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

上页:Excel VBA教程:AddConnector方法 下页:Excel VBA教程:AddCustomList方法

Excel VBA教程:AddCurve方法

Excel VBA教程:AddCustomList方法 Excel VBA教程:AddDataField方法
Excel VBA教程:AddDiagram方法 Excel VBA教程:AddFields方法
Excel VBA教程:AddFormControl方法 Excel VBA教程:AddItem方法
Excel VBA教程:AddLabel方法 Excel VBA教程:AddLine方法
Excel VBA教程:AddMemberPropertyField方法 Excel VBA教程:AddNode方法
Excel VBA教程:AddNodes方法 Excel VBA教程:AddOLEObject方法
Excel VBA教程:AddPageItem方法 Excel VBA教程:AddPicture方法
Excel VBA教程:AddPolyline方法 Excel VBA教程:AddReplacement方法
Excel VBA教程:AddSet方法 Excel VBA教程:AddShape方法
Excel VBA教程:AddTextbox方法 Excel VBA教程:AddTextEffect方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号