怎样使用VBA根据分辨率调整视图?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDc As Long,

ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "usera32" (ByVal hwnd As Long, ByVal
hDc As Long) As Long
Private Declare Function GetDC Lib "usera32" (ByVal hwnd As Long) As Long
Private Sub Workbook_Open()
    Dim screen As Long, info As String
    screen=GetDC(0)
    info=GetDeviceCaps(screen, 8) & "*" & GetDeviceCaps(screen, 10)
    ReleaseDC 0, screen
    ActiveWindow.Zoom=IIf(info="800*600", 80, IIf(info="1024*768",
90, 100))
End Sub

5、重新启动工作簿，看看工作表视图变化