Excel 根据用户屏幕分辨率调整显示？

我正在做一个VBA程序的项目，整个程序将在最大化/全屏视图中查看。没有选项卡、公式栏等。用户将使用自定义按钮和命令浏览工作表。我面临的问题是，我的大部分设计都来自我的笔记本电脑和（分辨率1366/768），当在更大的显示器（分辨率2880/1620）上观看时，画面并不美观

是否有方法对VBA进行编码以根据用户屏幕大小调整视图？我知道使用range.zoom，但这只会导致图像在更大的屏幕上变得异常巨大，即使是缩放，当屏幕达到一定大小时，如果将缩放设置为后退，会更令人赏心悦目。即使这个过程不是自动的。我不反对在程序开始时打开输入框，让用户在运行前选择小、中或大

Private Sub Workbook_Open()

    Dim wsh As Worksheet
    Dim CarryOn As Integer
    Set wbPB = PokerBros
    Set wsh = wbPB.Worksheets("Home")

        CarryOn = MsgBox("Do you want to save a copy of this original file?", vbQuestion + vbYesNo, "Save Copy Recommended")
        If CarryOn = vbYes Then
           Call CopyToNewBook
        End If

        wsh.Activate
        Call ZoomToFitHome
        Call ScreenDisplayMax
End Sub

Sub ZoomToFitHome()

    Dim wbh As Worksheet
    Set wbPB = PokerBros
    Set wbh = wbPB.Worksheets("Home")

        wbh.Range("A1:AA30").Select

        ActiveWindow.Zoom = True 'set range zoom

End Sub

Sub ScreenDisplayMax()
'        Call UnProtectAllSheets
        With Application
            .DisplayStatusBar = False
            .DisplayFullScreen = True
            With ActiveWindow
                .WindowState = xlMaximized
                .DisplayHeadings = False
                .DisplayWorkbookTabs = False
                .DisplayGridlines = False
                .DisplayHorizontalScrollBar = True
                .DisplayVerticalScrollBar = True
            End With
            .DisplayFormulaBar = False
        End With
End Sub

查看是否有帮助查看是否有帮助