MS-Visio：「最后一次缩放」的快捷方式

要为MS-Visio添加一个名为"最后一次缩放"的快捷方式，可以使用VBA代码来完成。

首先，打开MS-Visio并按下Alt+F11打开VBA编辑器。在VBA编辑器中，选择“插入”>“模块”，然后在新的模块中添加以下代码：

Sub LastZoom()
    Dim vsoPage As Visio.Page
    Dim vsoWindow As Visio.Window
    
    ' 获取当前活动窗口的页面
    Set vsoWindow = Visio.ActiveWindow
    Set vsoPage = vsoWindow.Page
    
    ' 将窗口的缩放级别设置为最后一次缩放级别
    vsoWindow.Zoom = vsoPage.LastZoom
End Sub

保存并关闭VBA编辑器。现在，我们可以为"最后一次缩放"创建一个快捷方式。

在MS-Visio中，选择“文件”>“选项”>“快捷键”。在“类别”下拉菜单中选择“宏”，然后在“命令”列表中找到我们刚刚创建的宏“LastZoom”。

在“新建快捷键”文本框中，我们可以输入一个键盘快捷键，比如"Ctrl+Shift+Z"。点击“分配”按钮将这个快捷键分配给我们的宏。

现在，当你按下"Ctrl+Shift+Z"时，MS-Visio的活动窗口将会自动缩放到最后一次缩放级别。

希望这个解决方法对你有帮助！