Record Windows paint coordinate?

I've never seen this kind of feature in any program so..

You know when you open a picture using windows paint,
there's a coordinate on the bottom right of the screen right?

Now, Is it possible to make a macro that records the coordinate everytime i maka a dot using "pencil" feature in paint?

So everytime i click on a spot in the image (draw a single dot), excel would track the coordinates of these dots and write it vertically in 2 columns (x & y)... the result is something like this :

x	y
125	148
143	180
152	185
230	155
280	186
280	154
207	133
207	70
246	95
281	121
282	94
337	82
320	95
342	100
356	109
350	159
346	202

I need to do this for 5000 dots so writing down those coordinates manually is gonna take forever, and the error risk is higher too ...

Or could you reccomend me a program that has such feature?
I've been googling it but found no such thing...

thanks.

How would you expect Excel to record what you are doing in Paint?
Can I ask what the purpose is? What do you hope to do with these coordinates afterwards?

I'm making a googlemap-like j2me application that has "routing" function..

and creating a route requires coordinates from a map..
and these are the coordinates from the paint that i was talking about...

Basically i open the map image and then write down the "nodes" or the spots in the map needed to create the route; one by one...

You could load the picture into an Image control (from the Control Toolbox) on the worksheet and then put this code behind the control:

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   With Cells(Rows.Count, "A").End(xlUp).Offset(1)
      .Value = X
      .Offset(0, 1).Value = Y
   End With
   
End Sub

Click on the image!

Assuming you have macros enabled, the coordinates should appear in columns A and B of the sheet. Oh, and the code has to be in the worksheet code module, not a normal module.

That doesn't appear to be an Image control. How did you insert it into the worksheet - using the Image control from the Developer tab?

No, that's correct. Maybe the conversion when I opened it in 2003 screwed it up. I'll test with 2007 later.

How complex are these images? Can you post an example.

If you were controling Notepad you would use sendkeys.
As fas as I can see Paint is pretty much a mouse driven app.

I used a chart to hold the image. Format Chart area Pattern > Fill effect > Picture.

Click the start point and then while still holding the mouse move to the end point and release the button. You should now have 2 sets of x,y values.

Private m_lngOutputRow As Long
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)

    If Button = 1 Then
        With Worksheets("Sheet1")
            If Len(.Cells(.Rows.Count, 1)) = 0 Then
                m_lngOutputRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                .Cells(m_lngOutputRow, 1) = x
                .Cells(m_lngOutputRow, 2) = y
            Else
                MsgBox "Full up"
            End If
        End With
    End If
    
End Sub


Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)

    If Button = 1 Then
        With Worksheets("Sheet1")
            .Cells(m_lngOutputRow, 3) = x
            .Cells(m_lngOutputRow, 4) = y
        End With
    End If

End Sub

Private Sub Chart_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)

    If Button = 1 Then
        With Worksheets("Sheet1")
            .Cells(m_lngOutputRow, 3) = x
            .Cells(m_lngOutputRow, 4) = y
        End With
    End If
    
End Sub

I guess the next part is relating the xy data to the actual picture.

Ah i see now..
Wow it really works.. thanks :D
But there's one last problem..
Where's the option to adjust the width and length of the chart area?
I got different coordinates with paint because it's stretched..
I think the width and length of the chart area must be the same with the image..

Oh and 1 more thing...
i only need to list dots actually, not lines...
so i guess only one XY is needed..
But it's okay i guess i can use the first 2 columns

As I said this is the hard part as none of the stuff in excel is talking in pixels.

It's points, twips or some other scaling.

What you would need to do is get the mouse reported information for topleft and bottom right. You then need the actual pixel widt/height of the image.

From that information you should be able to work out a scaling factor for x and y values.

Try this revision which include sizing factor.

Set image to 100% view
I started by clicking topleft and bottomright of chart area.

I moved those 2 sets of values out and added the images dimensions.
From these figures it's possible to calculate a x and y factor.

There are a couple of reasons for this.

Firstly the x,y values reported by the mouseover and mousedown events appear to be completely different. So the scaling is out.
Also you have a different sized image than the one I'm using.

I have reverted to using the image control as suggested by RS.

The control is on sheet 2 although the image itself has not be included as it makes the file too large. So you need to set the picture property to the image you are using.
Use the Autosize property to get the full size of the image.
Enter the controls width/height in sheet1 along with the images pixel size.

You should now get a fairly accurate report of the x,y value in the statusbar.
clicking the image will again append values on sheet1

Worked fine in my xl2007 SP2.

Did you exit design mode once you loaded the image?

You should get a mouse pointer when moving over the image rather than a NSEW pointer.

Glad you got it working.
Don't forget romperstomper, he gave you the solution 2 days ago.

waynert,
Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.