本示例将当前演示文稿幻灯片的高度设为 25 英寸,宽度设为 11 英寸。

With Application.ActivePresentation.PageSetup
    .SlideWidth = 11 * 72
    .SlideHeight = 25 * 72
End With