有没有设置所有工作表为一页宽的插件？不改变页面方向

lianghui168

有没有批量设置所有工作表为一页宽的插件？但不改变原来页面方向
有吗？

sweetlyeep

1. Sub SetPageSize()
   
2.     Application.ScreenUpdating = False
   
3.     Dim ws As Worksheet
   
4.     For Each ws In ThisWorkbook.Worksheets
   
5.         With ws.PageSetup
   
6.             .Zoom = False
   
7.             .FitToPagesWide = 1
   
8.             .FitToPagesTall = False
   
9.         End With
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

lianghui168

sweetlyeep 发表于 2020-9-19 20:40

谢谢 十分感谢

lianghui168

sweetlyeep 发表于 2020-9-19 20:40

在当前的文档录入宏可以使用，录入个人工作簿后别的文档再使用时无效

要怎么样才能做成插件的形式，或者共用的宏，方便别的工作簿也可以使用？

再次谢谢~