[已解决]求助VBA老师，编写一段适用于07版本中打开表格后自动自动全屏显示的代码

菜鸟锐

求助VBA老师，编写一段适用于07版本中打开表格后自动全屏显示的代码

最佳答案

月排行榜 / 总排行榜

windimi007

2011-12-17 14:28

给你2段代码，请任选其一使用。{:3912:}
代码1：（插入一个模块，将代码放入模块中）

1. 
   
2. Sub auto_open()
   
3.     Application.DisplayFullScreen = True
   
4. End Sub

复制代码

代码2：（将代码放在ThisWorkbook中）

1. Private Sub Workbook_Open()
   
2.     Application.DisplayFullScreen = True
   
3. End Sub
   

复制代码

P.S. 附件使用的是代码1，代码2被注释掉了。{:3212:}

跳转到最佳答案楼层

windimi007

给你2段代码，请任选其一使用。{:3912:}
代码1：（插入一个模块，将代码放入模块中）

1. 
   
2. Sub auto_open()
   
3.     Application.DisplayFullScreen = True
   
4. End Sub

复制代码

代码2：（将代码放在ThisWorkbook中）

1. Private Sub Workbook_Open()
   
2.     Application.DisplayFullScreen = True
   
3. End Sub
   

复制代码

P.S. 附件使用的是代码1，代码2被注释掉了。{:3212:}

suye1010

1. Private Sub Workbook_Open()
   
2. Application.DisplayFullScreen = True
   
3. End Sub

复制代码