Koordinaten einer Bilddatei
29.12.2008 19:30:07
Melek
Version: Office 2003
--------------------------------------------------------------------------------
Hallo!
Habe ein Bild in ein Tabellenblatt mit folgenden Befehlen eingefügt:
Private Sub Image1_MouseDown
(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, Byval Y As Single)
Dim letzte As Range
Set letzte = Range("A65536"). End(x1Up). Offset(1,0)
letzte = X + Image1.Left
letzte Offset(0,1) = Y + Image1.Top
End Sub
Jetzt habe ich noch folgende Probleme:
1.) Das so eingefügte Bild verdeckt die ausgegebenen Koordinaten ... ist bestimmt ganz einfach, aber was muss ich da in dem Makro ändern, damit die Koordinaten rechts, links oder oben oder unten vom Bild angezeigt werden?
2.) Außerdem möchte ich gerne, dass die angeklickten Stellen im Bild mit einem farbigen Punkt hinterlegt werden. Später möchte ich diese Punkte zu Linien verbinden und auch dieses soll angezeigt werden.
Vielen Dank für Eure Antworten
LG LALI