Office学习社区 › PowerPoint之家 › 如何批量设置PPT中的图片格式

wd1987 发表于 2009-12-6 19:13:12

上传了一个测试PPT。运行宏试试！

109716034 发表于 2009-12-6 19:17:37

需要说明的一点是：宏安全性重新设置并确定后必须重新打开PPT文件才生效的。

shaothybe 发表于 2009-12-6 19:18:03

谢谢laose的耐心解答,终于成功。另外也谢谢amwyq的解答。太好了，还是PPT学习论坛网的回答最快。

user_aijdvtxq 发表于 2009-12-6 19:23:12

刚才一直说没有成功的原因,终于找到了,向大家报告一下.
laose和amwyq的代码非常好,但似乎用于非相册似的PPT有效,如果是以相册方式批量引入的图片,若想用上述VBA代码,则无反应，这也是刚才一直未成功的原因。但换上laose传来的文档及代码，手工插入图片，马上成功了。
因此再打扰一下，如何解决相册中的图片修改。
现上传一附件，请高手们研究一下。万分感谢！

yhjdjdh60 发表于 2009-12-6 19:36:09

那就更简单了：
Sub Macro1()
    Dim sld As Slide, shp As Shape
    For Each sld In ActivePresentation.Slides
      For Each shp In sld.Shapes
            shp.Fill.Transparency = 0.75
      Next
    Next
End Sub

xkuikui 发表于 2009-12-6 19:41:46

PPT中的相册原理是图形图片填充，因此，代码不能直接针对图片，而是图形！！

275498507 发表于 2009-12-6 19:44:31

谢谢laose,因为我不懂VBA,您写的shp.Fill.Transparency = 0.75
与我要的对比度与亮度还是不能贯通起来,请您写一下它们,我自己还无法举一反三,万分感谢.

tmyq1 发表于 2009-12-6 19:53:21

对象不同，属性和方法自然就不同了，只能曲线实现了！！

myrtille 发表于 2009-12-6 19:57:03

谢谢laose,恕我愚钝,您的意思是不是,指无法在相册中实现批量改图片的亮度和对比度.
但您写的VBA可以批量改变透明度啊.在查看工具栏中是同一页面，只是相差一个选项,好像是属同一级别的对象啊.

user_olgct 发表于 2009-12-6 20:25:54

学习学习！

查看完整版本: 如何批量设置PPT中的图片格式