使用VBA将页面方向设置为横向

使用Excel VBA的过程中，我们又是可能会需要通过宏设置页面方向，比如将页面方向设置为横向。

一般写这样的代码都是用录制宏，然后再把得到的宏代码拿过来套在程序里。可是在录制这个宏的时候，我发现小小一个改变页面设置，居然录出了５０多行代码！大部分都是一些打印设置，事实上并无明显的实际作用（或者说根本就没作用，只是将执行时间白白增加了许多）。

而经过简化，使用宏将页面布局从横向改为纵向事实上只需要三行代码：

Sub Macro1()

ActiveSheet.PageSetup.Orientation = 2

End Sub

事实上，只需要修改PageSetup的Orientation属性，就可以完成这个操作。

事实就是酱紫的～