Word VBA教程:Vertices属性

该属性以一系列坐标对的形式返回指定任意多边形顶点(和贝赛尔曲线的控点)的坐标。可将该属性返回的数组作为AddCurveAddPolyLine方法的参数使用。Variant 类型,只读。

expression.Vertices

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

下表显示 Vertices属性将vertArray() 数组的值与三角形的顶点坐标相关联的方法。

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

VBA示例

本示例将活动文档中图形 1 的顶点坐标赋给一个数组变量,并显示第一个顶点的坐标。图形 1 必须为任意多边形。


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

本示例创建一个与活动文档中第一个图形具有相同几何特征的曲线。本示例假定第一个图形为包含 3n+1 个顶点的贝赛尔曲线,其中 n 为曲线段数量。


With ActiveDocument.Shapes
    .AddCurve .Item(1).Vertices, Selection.Range
End With

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号