如果您使用的是您的同事首先处理的工作簿,那么其他人将这些缩放应用于这些工作簿可能会感到沮丧。例如,如果您的同事(万达)的显示器很大,那么她将Excel的缩放比例减小到75%甚至60%的情况并不少见。当然,这样做的目的是使她不会因在全缩放系数下看起来很大的事情而感到不知所措。

问题是缩放系数与工作簿一起保存。因此,当Wanda保存工作簿并将其交给您时,当您打开它时,工作簿仍以Wanda上次使用的缩放倍数显示。

如果您没有与Wanda相同的大小监视器,则该工作簿在您的系统上可能几乎难以辨认。

对于该问题只有两种可能的解决方案。首先,打开工作簿后,您只需调整缩放比例即可。有多种方法可以执行此操作,但最简单的方法是使用状态栏右侧的“缩放”控件。您可以单击“缩放”滑块上的中心点并快速返回到100%,也可以单击滑块旁边的百分比以显示“缩放”对话框。

第二种解决方法是创建一个与工作簿一起保存的宏。该宏可以在每次打开工作簿时运行,从而设置缩放系数。 (此宏应添加到VBA编辑器中的“此工作簿代码”窗口中。)

Private Sub Workbook_Open()

ActiveWindow.Zoom = 100 End Sub

这样的宏的唯一问题当然是,每当Wanda(您的同事)在她的系统上打开工作簿时,缩放系数也会被设置,并且她会和您一样对您感到沮丧。

也许一种解决方案是创建一个涉及更多的宏,该宏将检查当前的屏幕分辨率,然后相应地设置缩放系数。

例如,以下宏可用于根据分辨率进行调整:

Declare Function GetSystemMetrics32 Lib "user32" _     Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Sub ScreenRes()

Dim lResWidth As Long     Dim lResHeight As Long     Dim sRes As String

lResWidth = GetSystemMetrics32(0)

lResHeight = GetSystemMetrics32(1)

sRes = lResWidth & "x" & lResHeight     Select Case sRes         Case Is = "800x600"

ActiveWindow.Zoom = 75         Case Is = "1024x768"

ActiveWindow.Zoom = 125         Case Else             ActiveWindow.Zoom = 100     End Select End Sub

此例程检查屏幕分辨率并相应地调整窗口。可以轻松添加其他分辨率和缩放。若要使例程自动运行,只需在“此工作簿”代码窗口中使用Workbook_Open事件处理程序来触发宏:

Private Sub Workbook_Open()

ScreenRes End Sub

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(11551)适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本: