Excel VBA:获取与FitToPageWide对应的缩放级别

Sub GetFitToPageZoomLevel()
    Dim ws As Worksheet
    Dim zoomLevel As Integer
    
    Set ws = ActiveSheet
    
    ' 获取当前工作表的缩放级别
    zoomLevel = ws.PageSetup.Zoom
    
    ' 判断是否启用了FitToPagesWide选项
    If ws.PageSetup.FitToPagesWide > 1 Then
        ' 计算与FitToPagesWide对应的缩放级别
        zoomLevel = Application.RoundDown(100 / ws.PageSetup.FitToPagesWide, 0)
    End If
    
    ' 输出缩放级别
    MsgBox "与FitToPageWide对应的缩放级别为：" & zoomLevel & "%"
End Sub