很简单,用ZoomExtents命令
VBA里输入代码如下:
Sub 测试缩放()ZoomExtentsEnd Sub
鼠标滚轮坏了,换个就好了
修改鼠标滑轮双击快捷键
鼠标中间
z+空格 然后 a+空格
z+双击空格
三个方法选一