步骤一：信任中心设置

①文件→②选项→③信任中心→④信任中心设置→⑤宏设

置→⑥选择“启用所有宏（不推荐；可能会运行有潜在危险

的代码）”，“信任对 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→②宏→③选择刚新建的宏→④运行