使用vba批量修改ppt公式颜色

Question

使用vba批量修改ppt公式颜色，只能一个一个的右击，设置对象格式——图片——重新着色吗？一个一个的改起来很麻烦

Answer 1

用户可以参考如下方法，本方法在office 2003中测试通过。

1、先随意新建一个宏，如Macro1

2、将原有代码全部删除，将下面的代码复制粘贴进去

Sub ToWhite()
' å®ç”± USCCSU è®°å½•ï¼Œæ—¥æœŸ: 2013-9-1
Dim xShp As Shape
Dim xSld As Slide
For Each xSld In ActivePresentation.Slides   '遍历所有幻灯片
    For Each xShp In xSld.Shapes    '遍历所有形状（图形、文本框、表格、OLE对象如公式等）
        If xShp.Type = 7 Then       '7代表msoEmbeddedOLEObject
            xShp.PictureFormat.ColorType = msoPictureBlackAndWhite  '颜色类型
            xShp.PictureFormat.Brightness = 1   '亮度0-1
            xShp.PictureFormat.Contrast = 1   '对比度0-1
            xShp.Fill.Visible = msoFalse    '不填充
        End If
    Next xShp
Next xSld
End Sub
'成员、属性等查询 http://msdn.microsoft.com/zh-CN/office

3、在PPT中运行该宏，完成颜色更改。若要改为黑色，令Brightness = 0

Answer 2

你确定是对象-Microsoft公式的公式吗？

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub test()
Dim xShp As Shape
Dim xSld As Slide

For Each xSld In ActivePresentation.Slides
For Each xShp In xSld.Shapes
If xShp.Type = 7 Then
xShp.Fill.Solid
xShp.Fill.ForeColor.RGB = RGB(255, 255, 0)
End If
Next xShp
Next xSld

End Sub

粗体部分的意思是红绿蓝组合，其中红255加绿255加蓝0就是黄色。
直接按F5运行此宏，全部改变。本回答被网友采纳

Answer 3

搞啥呢？？