Tag: 屏幕分辨率

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

我有一个Excel 2003macros来调整我的屏幕缩放基于屏幕分辨率。 Sub Macro1() Dim maxWidth As Long, myWidth As Long Dim myZoom As Single maxWidth = Application.UsableWidth * 0.96 'I use r because upto ri have macro buttons myWidth = ThisWorkbook.ActiveSheet.Range("r1").Left myZoom = maxWidth / myWidth ActiveWindow.Zoom = myZoom * 100 End Sub 当我在Excel 2003中尝试时，button大小及其标题不能正确缩放。 和Application.UsableWidth始终返回1026作为宽度为屏幕分辨率1024 * 768或1366 * 768。 有任何想法吗？ 如果打开任何系统屏幕分辨率，我希望Excel表格适合宽度