PowerPoint - (oder Excel -) VBA-Capture-Koordinaten der Maus Klicken

Etwas Hintergrund:

Quick hintergrund ist, dass ich in der Forschung Phasen des Gebäude ein add-in für PowerPoint. Mein end-Ziel ist die Entwicklung eines CAD-Dimensionierung-Add-in zu beschleunigen, die Schaffung von Engineering-Präsentationen. Wir haben eine Menge tun, um "PowerPoint-Engineering", wo die Allgemeinen Größen der Komponenten werden angezeigt, vereinfachte Versionen der besagten Komponenten erstellt und mit PPT-Formen oder screenshots von der CAD geometrie. Aber anlegen der Dimensionen über und über ist mühsam. Jede Regel besteht aus einem Pfeil, 2 Linien und ein text-Feld mit der dimension Wert.

Hier ist, wo ich etwas Hilfe benötigen.

(Wenn Sie wissen, wie man die folgenden in Excel, das würde auch funktionieren und ich wird daran arbeiten, die Zahl der PPT-äquivalent höher.)

In eine PowerPoint-Folie, während Sie im design-Modus (D. H. nicht-Dia-Show-Modus), möchte ich die folgenden workflow:

  1. In eine offene UserForm, der Anwender klickt auf einen button namens "START"
  2. Der code beginnt, hören Sie für einen Klick auf die linke Maustaste (LMC), die im Bereich der Folie selbst (Es sollte nicht auf die LMC auf die eigentliche UserForm, zum Beispiel, wenn der Benutzer benötigt, um ziehen Sie die UserForm aus dem Weg)
  3. Auf LMC, Koordinaten des Cursors sind, werden als (x1,y1)
  4. Wiederholen Sie die Schritte 2 & 3 aufnehmen (x2, y2)
  5. Sachen tun, mit diesen Koordinaten (z.B. zeichnen einer Bemaßung zwischen den beiden Koordinaten

Ich glaube, ich kann damit umgehen, der den Code mit der Ausnahme von Schritt 2, das ist der Grund, warum ich hier bin. Ich bin mit viel Mühe finden Sie einen Ausgangspunkt. Speziell, ich brauche Hilfe, wie hören für einen LMC. In Worte, was vergegenwärtigt wird, ist die folgende:

While Listening:
  If LMC = TRUE
    Do Stuff
  End If
End While

Aber ich habe nicht das wissen, um code der While Listening Teil. Ich brauche einen Schubs in die richtige Richtung.

Meiner Suche landete mich auf die MouseDown event-handler-Seiten auf MSDN, aber in meinen Tests, ich glaube nicht, dass dies ist, was ich brauche. Ihre scheinen, als ob MouseDown soll starten Sie eine routine, wenn die Maus nach Unten auf ein CommandButton in der UserForm selbst.

Ich habe auch festgestellt, das SO ein post, wo die einzige Antwort, die schien zu implizieren, dass dies nicht möglich war, ohne großen Aufwand, UND der code war möglich, die sich nachteilig auf die Datei selbst: Zum aufzeichnen von Maus-Klicks in Excel-VBA?. (Ich habe kein problem, geht zu den großen Längen, und setzen in die Arbeit, aber nicht, wenn der resultierende code hat eine hohe Wahrscheinlichkeit, dass der Schaden als Beitrag zu suggerieren scheint.) (Also, die OP war downvoted mit keine Erklärung, vielleicht kann mir jemand sagen, warum, damit ich nicht den gleichen Fehler machen.)

InformationsquelleAutor Saladsamurai | 2015-06-25
  1. 1

    Können Sie erreichen, was Sie suchen, zu tun, indem Sie Folgendes tun (den unteren Teil kann die meisten für Sie hilfreich):
    Deklarieren Sie zunächst die folgenden:

    Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

    und die folgenden code-snippets wird Ihnen erlauben, führen Sie einen Klick, Doppelklick, oder Rechte Maustaste:

    Private Sub SingleClick()
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub DoubleClick()
  'Double click as a quick series of two clicks
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub RightClick()
  Right Click
  SetCursorPos 200, 200 'x and y position
  mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

    Alles, was Sie tun müssen, ist ändern der cursor-position, um die Koordinaten auf dem Bildschirm.
    Um dies zu tun, ich habe ein neues makro mit dem folgenden code und Wiesen Sie auf "Strg+Y" - Taste. Dies wird Ihnen sagen, die Koordinaten Ihres aktuellen Mausposition.

    Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
    x As Long
    y As Long
End Type

Sub CurosrXY_Pixels()

    Dim lngStatus As Long
    Dim typWhere As POINTAPI

    lngStatus = GetCursorPos(typWhere)
    MsgBox "x: " & typWhere.x & Chr(13) & "y: " & typWhere.y, vbInformation, "Pixels"

End Sub
    • Vielen Dank für die Zeit nehmen, das zu tun; ich hatte nicht erwartet, so viel, so schnell. Ich muss in der Prüfung und Forschung mit diesen Funktionen ein wenig vor der Annahme, aber es sieht die "große Idee", die mir fehlte, war, dass ich gegangen außerhalb von VBA und in der user32.dll finden Sie die gewünschte Funktionalität.
    • Sicher, lassen Sie mich wissen, wenn es für Sie arbeitet!
    • Ein weiterer möglicher Ansatz: der Benutzer zeichnen oder wählen Sie eine Pfeil-oder eine der anderen Verbindungslinien, die PPT bietet nativ, und drücken Sie dann die start-Taste zum starten der dialog-box, wo Sie geben Sie die dimension von Informationen. Da der Anschluss an dem die info gilt bereits ausgewählt ist, müssen Sie die end-Punkte etc. bereits verfügbar.
    • Ich bin endlich wieder zu versuchen, diese und ich bin mit einigen Schwierigkeiten piecing it all together. Ich weiß, dass ich verwenden können GetCursorPos zu senden, die x -, y-Werte, die PONTAPI struct. Aber ich bin andernfalls bei Verwendung der mouse_event Funktionen ... Wie kann ich Sie nutzen, um Folgendes zu tun: IF Left Click Happened Then GetCursorPos(myPointAPI) ?
    • Sorry für die Verspätung. Ich war im Urlaub. In Bezug auf die Links klicken, um cursor-position - nach meinem Verständnis gibt es keine solche Links klicken-Ereignis. Ich glaube, es ist ein BeforeDoubleClick BeforeRightClick-Ereignis oder das könnte für Sie arbeiten.
    InformationsquelleAutor JGoldz75
Schreibe einen Kommentar