VBA Shape Node Points x position

[oliver_penney]

hi

how do i get VBA to msgbox me the x (and y) position of a node on a shape?

it must be something like

msgbox ActiveSheet.Shapes("Freeform 12").nodes(1).xpos



nearly got it, but i'm stuck in helpfile hell!

 

[Norie]

Does this help:

Sub GetPoints()
Dim sh
Dim nd
Dim xy
Dim nodemsg As String
Dim I
    Set sh = ActiveSheet.Shapes("Freeform 3")

    For Each nd In sh.Nodes
        xy = nd.Points
        I = I + 1
        nodemsg = nodemsg & "Node " & I & ": x =" & xy(1, 1) & " y=" & xy(1, 2) & vbCrLf
    Next
    MsgBox nodemsg
End Sub

 

[oliver_penney]

almost thanx

but i don't want to go through them all, i know which node i want...

is there anyway to do it without going through the collection?

 

[Norie]

Well I would think that

sh.Nodes(1)

would return node 1.

 

[oliver_penney]

hmm

i got it thanx

i was trying to do it without creating an array (your xy) but it looks like you have to

ta muchly