如何在 vba 中使用缩放（附示例）

您可以使用以下方法通过 VBA 在 Excel 中指定缩放：

方法 1：将缩放设置为特定量

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

此特定宏会将当前活动工作表的缩放设置为150% 。

方法 2：将缩放设置为当前选定的范围

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

这个特定的宏将放大当前选定的范围。

方法 3：将缩放设置为特定范围

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

这个特定的宏将放大范围C1:E5 。

以下示例展示了如何在实践中使用每种方法，并使用下面的 Excel 工作表（其中包含一组有关不同篮球运动员的数据）：

示例 1：将缩放设置为特定量

我们可以使用以下宏将当前活动工作表的缩放设置为150% ：

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

当我们运行这个宏时，工作表将自动缩放150% ：

请注意，默认缩放为100 。

通过将缩放设置为大于 100 的值，我们可以进行缩放。

要缩小，请将缩放值设置为小于 100。

示例 2：将缩放设置为当前选定的范围

我们可以使用以下宏将当前活动工作表的缩放设置为当前选定的范围：

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

例如，假设我们选择范围A7:C11 。

当我们运行这个宏时，工作表将自动缩放到这个范围：

示例 3：将缩放设置为特定范围

我们可以使用以下宏将当前活动工作表的缩放设置为范围C1:E5 ：

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

当我们运行这个宏时，工作表将自动缩放到这个范围：

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何使用 VBA 计算某个范围内的行数
如何使用 VBA 浏览电子表格
如何使用VBA显示所有行