excel - 根据屏幕分辨率调整工作表缩放级别

Question

我有一个 Excel 2003 宏来根据屏幕分辨率调整屏幕缩放。

Sub Macro1()
   Dim maxWidth As Long, myWidth As Long
   Dim myZoom As Single

   maxWidth = Application.UsableWidth * 0.96
   'I use r because upto r i have macro buttons
   myWidth = ThisWorkbook.ActiveSheet.Range("r1").Left
   myZoom = maxWidth / myWidth
   ActiveWindow.Zoom = myZoom * 100
End Sub

当我在 Excel 2003 中尝试时，按钮大小及其标题无法正确缩放。 对于屏幕分辨率 1024*768 或 1366*768，Application.UsableWidth 始终返回 1026 作为宽度。有什么想法吗？

如果在任何系统屏幕分辨率下打开，我希望 Excel 工作表的宽度适合

Answer 1

Sheets(1).Range("a1:AC1").Select
ActiveWindow.Zoom = True

是的，这就是所需要的。这将根据屏幕分辨率调整缩放级别。 请参阅以下链接了解详细信息:- http://optionexplicitvba.blogspot.sg/2011/10/one-size-fits-all.html