X7: Mauszeiger als Fadenkreuz und Koordinaten

[koter]

Hallo Oswald,

mit einem Makro könntest du Koordinaten von Klicks aufzeichen:

Code:

Sub KoordSpeichern()
    Dim doc As Document
    Dim b As Boolean
    Dim z As Integer
    Dim Liste As String
    Dim x As Double, y As Double, shift As Long
    Set doc = ActiveDocument
    doc.Unit = cdrMillimeter
    Liste = "X" & Chr(9) & "Y" & vbCrLf
    z = 0
    While Not b
        z = z + 1
        If z < 10 Then
            b = doc.GetUserClick(x, y, shift, 10, True, cdrCursorSmallcrosshair)
            x = Format(x, "###0.00")
            y = Format(y, "###0.00")
            If Not b Then
                Liste = Liste & x & Chr(9) & y & vbCrLf
            End If
        Else
            b = True
        End If
    Wend
    MsgBox Liste, , "Liste"
End Sub

Das Makro bricht nach 10 Klicks oder nach einem Druck auf die ESC-Taste ab.

Die MsgBox dient nur zur Demonstration. Man könnte die Daten in eine Datei speichern, an Excel übergeben oder sonstwas.

Gruß

Koter