|||
步骤一:信任中心设置
①文件→②选项→③信任中心→④信任中心设置→⑤宏设
置→⑥选择“启用所有宏(不推荐;可能会运行有潜在危险
的代码)”,“信任对 VBA 工程对象模型的访问”前面的复选
框打勾
步骤二:录入宏
①视图→②宏→③输入宏的名字→④创建→⑤在弹出的宏
设置界面中删除初始所有代码,再复制如下代码→⑥保存
步骤二:录入宏 ①视图→②宏→③输入宏的名字→④创建→⑤在弹出的宏设置界面中删除初始所有代码,再复制如下代码→⑥保存
Sub pic()
Dim sp As Shape
Dim sld As Slide
Dim prt As Presentation
Const cm As Single = 28.35 '定义常量cm,表示厘米。因为PPT中默认长度单位为px(译为像素更准确,平时称为磅或点), _
咱们习惯用厘米,所以需要乘以28.35转换一下
Set prt = ActivePresentation
For Each sld In prt.Slides '遍历所有幻灯片
For Each sp In sld.Shapes '遍历每张幻灯片里的每一个图形
With sp
.LockAspectRatio = False '不锁定原有长宽比例(纵横比);如果为True表示锁定此属性,则下面长和宽只能设置一项
.Left = 0
.Top = 0
.Width = 33.87 * cm '宽度设置为6厘米
.Height = 19.24 * cm '高度设置为4.5厘米
End With
Next
Next
Set prt = Nothing
End Sub
说明:需要根据需要调整参数:
Left = 0 是指图片距离 PPT页面最左边 0;
Top = 0 是指图片距离 PPT 页面顶端 0;
Height = 19.24 是指图片高度 19.24;
Width = 33.87 是指图片宽度 33.87
步骤三:运行
①关闭新建的宏,回到原来 ppt→②宏→③选择刚新建的宏
→④运行
步骤三:运行 ①关闭新建的宏,回到原来 ppt→②宏→③选择刚新建的宏→④运行
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-11-1 08:00
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社