Get the x/y coordinates oft the center of shapes

[Stefan_Sand]

Hello,

i have a nice hex grid shapefile of the United Kingdom.
Is there a way to get the x/y coordinates of all centers of the shapes?

Please see the example file, there are 12 Shape(groups) in it.

kind regards,
Stefan

[snb]

Code: Select all

Sub M_snb()
   For Each it In Sheet1.Shapes
       MsgBox "y=: " & it.Top + it.Height / 2 & vbLf & "x=: " & it.Left + it.Width / 2, , it.Name
   Next
End Sub

[Stefan_Sand]

thanks, but how shall i go through it, if the variables are not declared?

[snb]

Remove 'Option Explicit'

[HansV]

Or declare

Dim it As Shape

and replace Sheet1 with the codename of the sheet, or with Active sheet.

[SpeakEasy]

>Remove 'Option Explicit'
Not sure I'd ever advise that

[HansV]

snb NEVER declares any local variable...

[snb]

Snb only declares private & public variables and tries to avoid those as much as possible. (see www.snb-vba.eu)
Declaring Local variables is 100% redundant.
So the use of 'NEVER' and 'any' is incorrect and should be replaced by 'Only if necessary'.

[HansV]

I have edited my previous reply to "any local variable". I strongly disagree with your statement "Declaring Local variables is 100% redundant."

[Stefan_Sand]

sorry, that i started a debate over declaring variables, i only wanted to get the x / y of shape coordinates into columns C and D and i know the diferences, but as i am not very good in using VBA i declare as often as i could.

thanks anyway.

[HansV]

See the attached workbook.

GB Tiles.xlsm

[Stefan_Sand]

Thank You, Hans!