VBA最大化打开Excel插入的对象

uranus1997

【原创】VBA最大化打开Excel插入的对象

【原创】

通常我们在插入一个对象后（左图），再次打开的时候，不知道为何excel没有默认最大化打开（右图），有学员问过这个问题，解决办法如下，在插入的对象工作簿后，在对象工作簿（这里仅以插入对象是Excel工作簿为例）中加入以下随便一段代码：

代码一：

Private Sub Workbook_Activate()
'这个只针对当前工作簿，在其他工作簿同时打开时不影响。
    ThisWorkbook.Windows(1).WindowState = xlMaximized
End Sub

代码二：

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
'这个也可以的，但针对所有打开的工作簿。
    Application.ActiveWindow.WindowState = xlMaximized
End Sub

coco_lin

好东西要支持

zgm1201

好好学习，天天向上！支持！

ls

回复 uranus1997 的帖子

学习