Wie zeigt und bewegen Sie den Mauszeiger in Powerpoint VBA?

Question

Ich habe darüber ausgiebig gesucht und unglaublich scheint es keine Antwort zu geben. Weiß jemand, wie man das macht?

Answer 1

Der Show -Cursor -Teil von PowerPoint ist Teil von PowerPoint - der Bewegungsteil muss aus einem API -Anruf stammen. Bitte schön:

Public Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As Long
//'USE THIS IF x64: Public Declare PtrSafe Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As LongPtr
Public Type POINTAPI
    X As Long
    Y As Long
End Type
Sub ShowCursorAndMove()
    Dim currView As SlideShowView
    Set currView = ActivePresentation.SlideShowSettings.Run.View
    currView.PointerType = ppSlideShowPointerArrow
    MoveMouse 400, 300
End Sub
Sub MoveMouse(X As Single, Y As Single)
    Dim pt As POINTAPI
    pt.X = X
    pt.Y = Y
    SetCursorPos pt.X, pt.Y
End Sub