Hi zusammen,
habe mal eine Frage:
Is es irgendwie möglich die Position einer in Excel eingefügten Form per VBA in Pixel auszulesen?
Habe beispielsweise einen Code, der mir die aktuelle Position der Maus im Excel Blatt in Pixel gibt. Kann ich nun irgendwie andere Punkte (nicht die der Maus), zum Beispiel die einer eingefügten Form (z.B eines Kreises) oder noch besser Pixelpunkte die auf diesem Kreis liegen bestimmen? Ich meine hier immer die Pixelposition im Excelblatt.
Hier mal der Beispiel Code für die Cursor-PixelPosition:
Wäre echt cool wenn jemand da eine Idee hätte, letzendlich geht es mir nur darum die Pixel-Position von Objekten im ExcelBlatt zu bestimmen. VIELEN DANK
habe mal eine Frage:
Is es irgendwie möglich die Position einer in Excel eingefügten Form per VBA in Pixel auszulesen?
Habe beispielsweise einen Code, der mir die aktuelle Position der Maus im Excel Blatt in Pixel gibt. Kann ich nun irgendwie andere Punkte (nicht die der Maus), zum Beispiel die einer eingefügten Form (z.B eines Kreises) oder noch besser Pixelpunkte die auf diesem Kreis liegen bestimmen? Ich meine hier immer die Pixelposition im Excelblatt.
Hier mal der Beispiel Code für die Cursor-PixelPosition:
Quellcode
- Declare Function GetCursorPos Lib "user32" _
- (lpPoint As POINTAPI) As Long
- Type POINTAPI
- x As Long
- y As Long
- End Type
- Sub KoordinatenErmitteln()
- Dim Point As POINTAPI
- Dim i As Integer
- i = GetCursorPos(Point)
- If i <> 0 Then
- MsgBox "X-Position: " & Point.x & vbLf & _
- "Y-Position: " & Point.y, vbInformation
- Else
- MsgBox "Es konnte keine Position ermittelt werden"
- End If
- End Sub
Wäre echt cool wenn jemand da eine Idee hätte, letzendlich geht es mir nur darum die Pixel-Position von Objekten im ExcelBlatt zu bestimmen. VIELEN DANK