PowerPoint2013中如何批量修改公式的颜色

本文采用创建宏的办法实现PowerPoint2013中批量修改公式的颜色。

1、视图—宏—宏名定义为：EquationColor；

2、创建，将下面的代码粘贴到代码编辑窗口；

Sub EquationColor()

Dim oSld As Slide

Dim oShp As Shape

Dim oShapes As Shapes

Dim textColor As RGBColor

For Each oSld In ActivePresentation.Slides

    Set oShapes = oSld.Shapes

    For Each oShp In oShapes

        If oShp.Type = 7 Then

            oShp.PictureFormat.ColorType = msoPictureBlackAndWhite

            oShp.PictureFormat.Brightness = 0

            oShp.PictureFormat.Contrast = 1

            oShp.Fill.Visible = msoFalse

        End If

    Next oShp

Next oSld

End Sub

3、在代码编辑窗口中选择保存；

4、视图—宏—选择新建的宏—运行，即完成了PPT中公式颜色的批量修改。

备注：本文只能实现独立的公式颜色修改，如果是与其他对象组合后的公式，建议先取消组合。