页面设置

引用Presentation对象的PageSetup属性返回一个PageSetup对象，设置该对象的属性和方法可以对演示文稿进行页面设置。

下面的代码修改演示文稿的页面大小和显示方向：

code.vba 
Sub Test()
  Dim pr As Presentation
  Set pr = Presentations(1)
  Dim ps As PageSetup
  Set ps = pr.PageSetup
  ps.SlideSize = ppSlideSize35MM
  ps.SlideOrientation = msoOrientationVertical
End Sub

演示文稿的设置效果如图3-3所示。

Document Image

图3-3 页面设置