修改excel纸张方向为横向用vba代码怎么写

1、点击顶部菜单开发工具下的VB编辑器。

2、在编辑器窗口的顶部，点击插入模块。

3、在代码编辑窗口输入以下代码，运行即可修改excel纸张方向为横向。

Sub Macro1()

    ActiveSheet.PageSetup.Orientation = xlLandscape

End Sub