ppt用vba设置和获取幻灯片的大小_tjlaoji

http://blog.sina.com.cn/u/2997716863

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

ppt用vba设置和获取幻灯片的大小

(2016-08-20 19:56:07)

分类：编程

http://www.blogbus.com/pptaddins-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 , Height As Single
      With ActivePresentation.PageSetup
         Width = .SlideWidth : Height = .SlideHeight
      End With
      MsgBox "幻灯片的宽度是： " & (Width / 72) & "英寸，高度是： " & (Height / 72) & "英寸。"
End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：学习写作一个PPT插件（入门级）

后一篇：ppt里怎样用vba判断动画归属类别

新浪BLOG意见反馈留言板　欢迎批评指正