在新工作表上设置 Excel 的默认缩放比例

Question

我已经用以下代码设置了打开新工作簿时的缩放级别：

Private Sub Workbook_Open()

    ActiveWindow.Zoom = 109

End Sub

如何在该工作簿中创建的每个新工作表上设置自定义缩放？

Answer 1

您可以采用与工作簿完全相同的方式拦截新工作表的创建事件。

当您在工作簿中插入新工作表时，会触发 NewSheet 事件。您可以使用与此类似的代码（我没有测试）：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
On Error Resume Next
ActiveWindow.Zoom = 109
End Sub

有关详细信息，请参阅 Workbook.NewSheet 事件 (Excel)。