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

mxs810 发表于 2009-12-6 16:44:00

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

我有一份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 发表于 2009-12-6 17:46:33

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 发表于 2009-12-6 17:58:35

感谢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 发表于 2009-12-6 18:04:37

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

user_hjvwu 发表于 2009-12-6 18:12:30

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

cdong27 发表于 2009-12-6 18:15:29

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

user_tsbxu 发表于 2009-12-6 18:17:58

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

heeb0957 发表于 2009-12-6 18:28:19

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

saiwing6 发表于 2009-12-6 18:34:17

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

alksdj 发表于 2009-12-6 19:09:06

test

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