订阅Excel VBA 页面设置
来源：网络收集 点击： 时间：2024-02-18打开新建一个并打开EXCEL工作表
2/5使用Alt+F11组合快捷键进入vbe编辑器或者单击【开发工具】-VIsual Basic，并插入一个新的模块。如图所示。
3/5在模块中编写如下代码：
Sub 初始化设置()
Cells.Select
Selection.RowHeight = 16
Selection.ColumnWidth = 9
With ActiveSheet.PageSetup
.RightFooter =
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.Zoom = 100
End With
End Sub
这部分代码单位英寸。
4/5如果我们想直接设置厘米单位，我们这一将代码改为如下：
Sub 初始化设置()
ActiveSheet.Cells.RowHeight = 16
ActiveSheet.Cells.ColumnWidth = 9
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin = Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(1.5)
.BottomMargin = Application.CentimetersToPoints(1) 底
.HeaderMargin = Application.CentimetersToPoints(0.5) 页眉
.FooterMargin = Application.CentimetersToPoints(0.5) 页脚
.Zoom = 100
End With
End Sub
5/5其设置的效果为行高16，列宽9 ，页面设置如下图所示。
注意事项本代码为个人经验，仅供参考，如有更好的方法，欢迎留言讨论。
本代码本人一直使用，没有BUG
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_63948.html
