Excel VBA教程:Vertices属性

以一组坐标对的形式返回指定任意多边形绘图对象的顶点(以及贝塞尔曲线的控制点)的坐标。可用本属性所返回的数组作为AddCurve方法或AddPolyLine方法的参数。Variant 类型,只读。

下表显示 Vertices属性如何将vertArray() 数组中的值与三角形的顶点坐标相关联起来。

vertArray 元素 包含
vertArray(1, 1) 第一个顶点与文档的左边界之间的水平距离
vertArray(1, 2) 第一个顶点与文档的顶端之间的垂直距离
vertArray(2, 1) 第二个顶点与文档的左边界之间的水平距离
vertArray(2, 2) 第二个顶点与文档的顶端之间的垂直距离
vertArray(3, 1) 第三个顶点与文档的左边界之间的水平距离
vertArray(3, 2) 第三个顶点与文档的顶端之间的垂直距离

Excel VBA教程:Vertices属性·示例

本示例将myDocument 中第一张图形的顶点坐标赋给数组变量vertArray(),并显示第一个顶点的坐标。


Set myDocument = Worksheets(1)
With myDocument.Shapes(1)
    vertArray = .Vertices
    x1 = vertArray(1, 1)
    y1 = vertArray(1, 2)
    MsgBox "First vertex coordinates: " & x1 & ", " & y1
End With

本示例创建与myDocument 中的第一张图形有着相同的几何说明的曲线。为使本示例正常运行,第一张图形必须包含 3n+1 个顶点。


Set myDocument = Worksheets(1)
With myDocument.Shapes
    .AddCurve .Item(1).Vertices
End With

上页:Excel VBA教程:VerticalFlip属性 下页:Excel VBA教程:View属性

Excel VBA教程:Vertices属性

Excel VBA教程:View属性 Excel VBA教程:ViewCalculatedMembers属性
Excel VBA教程:Visible属性 Excel VBA教程:VisibleFields属性
Excel VBA教程:VisibleItems属性 Excel VBA教程:VisibleRange属性
Excel VBA教程:VisualTotals属性 Excel VBA教程:VPageBreaks属性
Excel VBA教程:Walls属性 Excel VBA教程:WallsAndGridlines2D属性
Excel VBA教程:Watches属性 Excel VBA教程:WebConsecutiveDelimitersAsOne属性
Excel VBA教程:WebDisableDateRecognition属性 Excel VBA教程:WebDisableRedirections属性
Excel VBA教程:WebFormatting属性 Excel VBA教程:WebOptions属性
Excel VBA教程:WebPreFormattedTextToColumns属性 Excel VBA教程:WebSelectionType属性
Excel VBA教程:WebSingleBlockTextImport属性 Excel VBA教程:WebTables属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号