如何用vba设置页面大小写

在VBA（Visual Basic for Applications）中，如果你想设置Excel工作表的页面大小，你可以使用`PageSetup`对象。以下是一个示例代码，它将设置活动工作表的页面大小为A4。

```vba

Sub SetPageSizeA4()

With ActiveSheet.PageSetup

.PaperSize = xlPaperA4 ' xlPaperA4 是 Excel 中定义的页面大小常量

' 其他页面设置可以在这里进行，例如：

' .Orientation = xlPortrait ' 纵向

' .Orientation = xlLandscape ' 横向

' .TopMargin = 1 ' 设置页边距，单位为英寸

' .LeftMargin = 1

' .RightMargin = 1

' .BottomMargin = 1

End With

End Sub

```

要运行此代码，你可以在Excel的VBA编辑器中插入一个新模块，然后将上述代码粘贴进去。之后，你可以通过运行`SetPageSizeA4`宏来设置页面大小。

如果你需要设置不同的页面大小，只需将`xlPaperA4`替换为相应的Excel页面大小常量即可。以下是一些其他常见的页面大小常量：

`xlPaperA3`

`xlPaperA5`

`xlPaperB4`

`xlPaperB5`

`xlPaperLetter`

`xlPaperLegal`

`xlPaperStatement`

`xlPaperExecutive`

`xlPaperTabloid`

你可以根据需要选择合适的常量来设置页面大小。