Converting Excel Cell Location into X and Y Coordinates
 

I'm using Excel to create a screen designer utility with a VBA macro
which will take the screen once designed and output source code which
can then be compiled to actually display the screen in the environment
it is designed for.

One problem I have is I need to convert the positions of the various
fields from their Excel format ie "C3" into x and Y coordinates, so
foir example "I14" becomes 9,11. I'm using a range loop to go through
the screen picking out the fields:

For Each sMainScreen In Range("C4:CA21")

.............

Next sMainScreen

But how can I write something to work out each location as it finds
the fields?

Thanks for any assistance, hope it's clear enough.

Converting Excel Cell Location into X and Y Coordinates
 

Maybe it wasn't clear enough.

In essence what I need to know is what cell is being processed at each
stage of the loop. Is there anyway of finding that out?

I can then somehow split the range (eg D11) into it's x and y
components and work out the x and y coordinates.

Anyone know if this can be done?

Converting Excel Cell Location into X and Y Coordinates
 

I've managed to achieve my objective with a bit of a fudge, just
having x and y variables which I increment accordingly after each pass
of the loop, or every 80 passes for the y coord.

Converting Excel Cell Location into X and Y Coordinates
 

Is this what you mean ?

With Range("A1")
Debug.Print .Left, .Top
Debug.Print .Width, .Height
End With

You would also need to allow for the Application.WindowState and possibly
position, along that of the Window.

Or if you mean using a For Each loop on a Range:

Dim Cell As Range

For Each Cell In Range("B3:G15")
With Cell
Debug.Print "(" & .Row & "," & .Column & ") = " & .Value
End With
Next

NickHK

wrote in message
oups.com...
I'm using Excel to create a screen designer utility with a VBA macro
which will take the screen once designed and output source code which
can then be compiled to actually display the screen in the environment
it is designed for.

One problem I have is I need to convert the positions of the various
fields from their Excel format ie "C3" into x and Y coordinates, so
foir example "I14" becomes 9,11. I'm using a range loop to go through
the screen picking out the fields:

For Each sMainScreen In Range("C4:CA21")

............

Next sMainScreen

But how can I write something to work out each location as it finds
the fields?

Thanks for any assistance, hope it's clear enough.