Loop through line shapes to get their start and end point

[JohnWood]

Heĺlo, is it possible to loop through a worksheet line shapes and store their start point and end point x, y coordinates in another worksheet?
Thanks,

 

[Saurabhj]

Hi,

Assuming your sheet1 contains only line shapes, below is the code to display shape name and x and y coordinate in Sheet2:

Sub shapeCoordinates()
    Dim shapecount As Integer
    For shapecount = 1 To Sheets("Sheet1").Shapes.Count
        Sheets("Sheet2").Cells(shapecount, 1) = Sheets("Sheet1").Shapes(shapecount).Name
        Sheets("Sheet2").Cells(shapecount, 2) = Sheets("Sheet1").Shapes(shapecount).Left
        Sheets("Sheet2").Cells(shapecount, 3) = Sheets("Sheet1").Shapes(shapecount).Top
    Next
End Sub