如何批量设置PPT中的图片格式

wd1987

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

109716034

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

shaothybe

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

user_aijdvtxq

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

test211.rar (682.54 KB, 下载次数: 29)

2016-4-11 07:41 上传

点击文件名下载附件

yhjdjdh60

那就更简单了：
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

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

275498507

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

tmyq1

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

myrtille

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

user_olgct

学习学习！