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