Excel VBA 頁面設置 _電腦

對于經常做Excel表格的小伙伴們，經常需要設置Excel的打印頁面和字體、頁眉頁腳等，那么若何利用VBA來完當作反復的操作呢？我們一路進修一下。

需要這些哦
電腦
office excel
方式/
1打開新建一個并打開EXCEL工作表

2利用Alt+F11組合快捷鍵進入vbe編纂器或者單擊【開辟東西】-VIsual Basic ，并插入一個新的模塊。如圖所示。

3【Excel VBA 頁面設置】在模塊中編寫如下代碼：
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
With
Sub
這部門代碼單元英寸。

4若是我們想直接設置厘米單元，我們這一將代碼改為如下：
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
With
Sub

5其設置的結果為行高16 ，列寬9 ，頁面設置如下圖所示。

以上內容就是Excel VBA 頁面設置的內容啦，希望對你有所幫助哦！

Excel VBA 頁面設置

猜你喜歡