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

Question

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

即： 将鼠标慢慢移动到“Bold” - 按钮并单击它，无论当前选择哪个选项卡和屏幕分辨率？

感谢您的任何建议。

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