dubo的个人博客分享 http://blog.sciencenet.cn/u/dubo

博文

[转载]批量调整不同页面ppt图片大小的方法

已有 2594 次阅读 2023-7-18 14:00 |个人分类:小技巧|系统分类:科研笔记|文章来源:转载

步骤一:信任中心设置

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

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

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




https://blog.sciencenet.cn/blog-464042-1395794.html

上一篇:[转载]PDF在线转换器、解密
收藏 IP: 122.14.45.*| 热度|

0

该博文允许注册用户评论 请点击登录 评论 (0 个评论)

数据加载中...
扫一扫,分享此博文

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2024-11-1 08:00

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部