Как показать и переместить курсор мыши в Powerpoint VBA? - PullRequest
Новая
       17

Как показать и переместить курсор мыши в Powerpoint VBA?

3 голосов
/ 05 июня 2010

Я много искал по этому вопросу, и невероятно, что, похоже, нет ответа. Кто-нибудь знает, как это сделать?

1 Ответ

5 голосов
/ 05 июня 2010

Часть отображения курсора является частью PowerPoint - часть перемещения должна исходить из вызова API. Вот, пожалуйста: 

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
...