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

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

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

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

4、在模块当中输入如下代码，然后运行Private Declare Function 蘅荫酸圉GetDeviceCaps Lib "gdi32" (ByVal hDc As Long,ByVal nIndex As Long) As LongPrivate Declare Function ReleaseDC Lib "usera32" (ByVal hwnd As Long, ByValhDc As Long) As LongPrivate Declare Function GetDC Lib "usera32" (ByVal hwnd As Long) As LongPrivate 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、重新启动工作簿，看看工作表视图变化