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

mxs810

我有一份PPT文档，里面有大量图片，基本每幻灯片1张图片，现要将图片的对比度设为85%，亮度设为25%，如果一张一张图片去设置，则要花很多时间。不知有没有办法批量设置图片格式的方法（都是将图片的对比度设为85%，亮度设为25%）。


在网上看到类似情况在WORD里可用VBA处理的宏代码，附下：

Sub Macro1()
For Each InlineShape In ActiveDocument.InlineShapes
InlineShape.PictureFormat.IncrementContrast 1
InlineShape.PictureFormat.IncrementBrightness 1
Next InlineShape
End Sub

但上述代码在PPT里无效。请各位高手不吝赐教。

177140

Sub Macro1()
    Dim sld As Slide, shp As Shape
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Type = msoPicture Then
                shp.PictureFormat.IncrementBrightness 0.25
                shp.ScaleWidth 0.85, msoFalse, msoScaleFromMiddle
            End If
        Next
    Next
End Sub

quding

感谢laose的代码
楼主要的是亮度和对比度，应该只调整对比度和亮度
Sub b()
    Dim sld As Slide, shp As Shape
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Type = msoPicture Then
                shp.PictureFormat.Brightness = 0.25
                shp.PictureFormat.Contrast = 0.85
                End If
        Next
    Next
End Sub

1379270383

路过。。。。。。。。。。。。。。。。。

user_hjvwu

学习了。
再宏的定义中，别忘了图片的起始页码。

cdong27

有 关“宏”的知识，请高手多多教教，谢谢（从最基本的开始）

user_tsbxu

非常谢谢高手们的答复,但代码复制进相册后,运行,无任何提示,证明代码是没有冲突的,但就是没有效果,图片的亮度及对比度显示仍是50%,50%.问题出在什么地方?

heeb0957

哈哈，看错楼主的要求了，多些版主更正。另外，楼主运行没反应，可能是宏安全性太高所致！

saiwing6

能否,请高手随便开户一个PPT,测试一下.万分感谢!

alksdj

test
test.rar (125.55 KB, 下载次数: 208)

2016-4-11 07:41 上传

点击文件名下载附件