PowerPoint VBA教程:Vertices属性

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

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

VertArray 元素 内容
VertArray(1, 1) 第一个顶点到幻灯片左边的水平距离
VertArray(1, 2) 第一个顶点到幻灯片顶部的垂直距离
VertArray(2, 1) 第二个顶点到幻灯片左边的水平距离
VertArray(2, 2) 第二个顶点到幻灯片顶部的垂直距离
VertArray(3, 1) 第三个顶点到幻灯片左边的水平距离
VertArray(3, 2) 第三个顶点到幻灯片顶部的垂直距离

VBA示例

本示例将myDocument 上第一个形状的顶点坐标分配给数组变量vertArray(),并显示第一个顶点的坐标。


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

本示例创建一个曲线,该曲线的几何说明与myDocumentument 中第一个形状相同。本示例要求第一个形状必须包含 3n+1 个顶点。


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

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

PowerPoint VBA教程:Vertices属性

PowerPoint VBA教程:View属性 PowerPoint VBA教程:ViewType属性
PowerPoint VBA教程:Visible属性 PowerPoint VBA教程:WebOptions属性
PowerPoint VBA教程:Weight属性 PowerPoint VBA教程:Width属性
PowerPoint VBA教程:Windows属性 PowerPoint VBA教程:WindowState属性
PowerPoint VBA教程:WordWrap属性 PowerPoint VBA教程:WritePassword属性
PowerPoint VBA教程:Yellow Property PowerPoint VBA教程:Zoom属性
PowerPoint VBA教程:ZoomToFit属性 PowerPoint VBA教程:ZOrderPosition属性
PowerPoint VBA教程:Microsoft PowerPoint对象 PowerPoint VBA教程:Microsoft PowerPoint对象(演示文稿)
PowerPoint VBA教程:Microsoft PowerPoint对象(形状) PowerPoint VBA教程:不支持的语言元素
PowerPoint VBA教程:Context属性 PowerPoint VBA教程:关于与语言相关的信息
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号