怎样使用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、重新启动工作簿，看看工作表视图变化