visual basic for application 绘制多边形

绘制多边形的代码

Sub 绘制多边形()
    Dim triArray(1 To 4, 1 To 2) As Single

    triArray(1, 1) = 25
    
    triArray(1, 2) = 100
    
    triArray(2, 1) = 100
    
    triArray(2, 2) = 150
    
    triArray(3, 1) = 150
    
    triArray(3, 2) = 150
    
    triArray(4, 1) = 25     ' Last point has same coordinates as first
    
    triArray(4, 2) = 100
    
    Set myDocument = ActivePresentation.Slides(1)
    
    myDocument.Shapes.AddPolyline SafeArrayOfPoints:=triArray

End Sub

triArray(1, 1) = 25代表什么？triArray(1, 1) = 25和 triArray(1, 2) = 100是一对，代表坐标(25,100)。总共4个坐标，但3个不同的坐标，组成一个三角形。

补充：

百度搜索 microsoft learn，在网站中搜索visual basic for application便能找到开发文档。
通过录制宏能够给开发带来提示。
保存为pptm格式。