如何在Excel中使鼠标移动与屏幕分辨率无关

Question

我想为一些同事创建一个Excel电子学习教程（混合学习）。我想使用vba/vbs在屏幕上移动鼠标，并向他们显示不同命令的位置。我知道这是可以做到的，但当你改变屏幕分辨率时，它就不再有效了。有没有办法使它独立于屏幕分辨率？

即：将鼠标缓慢移动到"粗体"按钮并单击它，无论当前选择的选项卡和屏幕分辨率如何？

谢谢你的建议。

Answer 1

1. 这最好使用屏幕视频捕获工具来实现

2. 如果你坚持，在工作表上创建一个指针形状的形状，并使用所附代码的某些版本来移动

   Sub MoveShape(shp As Shape, dbTop As Double, dbLeft As Double)
   Dim dbVerticalIncrement As Double, dbHorizontalIncrement As Double
   Dim lLoop As Long
   Const lSteps As Long = 1000
   
   dbVerticalIncrement = (dbTop - shp.Top) / lSteps
   dbHorizontalIncrement = (dbLeft - shp.Left) / lSteps
   For lLoop = 1 To lSteps
       shp.Top = shp.Top + dbVerticalIncrement
       shp.Left = shp.Left + dbHorizontalIncrement
       Application.Wait (Now() + 0.0000001)
   Next lLoop
   End Sub