Sub GetPoint()
Dim shpTemp As Shape
Dim pointsArray As Variant
Dim currXvalue As Currency
Dim currYvalue As Currency
Set shpTemp = Application.ActivePresentation.Slides.Item(1).Shapes(1)
With shpTemp
If .Type = msoFreeform Then
With .Nodes
Debug.Print .Count
pointsArray = .Item(1).Points
currXvalue = pointsArray(1, 1)
currYvalue = pointsArray(1, 2)
Debug.Print currXvalue, currYvalue
currXvalue = .Item(2).Points(1, 1)
currYvalue = .Item(2).Points(1, 2)
Debug.Print currXvalue, currYvalue
End With
ElseIf .Type = msoAutoShape Then
'针对autoshape更改
With .Nodes
Debug.Print .Count
pointsArray = .Item(1).Points
currXvalue = pointsArray(1, 1)
currYvalue = pointsArray(1, 2)
Debug.Print currXvalue, currYvalue
currXvalue = .Item(2).Points(1, 1)
currYvalue = .Item(2).Points(1, 2)
Debug.Print currXvalue, currYvalue
End With
End If
End With
End Sub