0度跨越

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://pptaddins.blogbus.com/logs/49133531.html

设置和获取幻灯片的大小

Sub SetSlideSize()
      ' 这个常数用于把单位设为英寸
      Const PTS As Byte = 72
      With ActivePresentation.PageSetup
         .SlideWidth = 8 * PTS '8英寸
         .SlideHeight = 6 * PTS
      End With
   End Sub

Sub GetSlideSize()
      Dim Width As Single
      Dim Height As Single
      With ActivePresentation.PageSetup
         Width = .SlideWidth
         Height = .SlideHeight
      End With
      MsgBox "幻灯片的宽度是： " & (Width / 72) & "英寸，高度是： " _
         & (Height / 72) & "英寸。"
   End Sub