3
我在这方面进行了广泛搜索,难以置信的似乎没有答案。有谁知道如何做到这一点?如何在Powerpoint VBA中显示和移动鼠标光标?
我在这方面进行了广泛搜索,难以置信的似乎没有答案。有谁知道如何做到这一点?如何在Powerpoint VBA中显示和移动鼠标光标?
显示光标部分是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