ppt 批量替换颜色

想要批量将PPT文档中的颜色进行替换，可以使用PowerPoint VBA宏实现。
 
1. 打开PPT文档，按下“Alt+F11”键打开“Visual Basic Editor”。
 
2. 单击“插入”菜单下的“模块”，在新建的模块中，添加以下代码：
 
```
Sub ReplaceColor()
    Dim sld As Slide
    Dim shp As Shape
    Dim clr As Long
    Dim nclr As Long
    
    clr = RGB(255, 0, 0) ' 需要替换的颜色RGB值
    nclr = RGB(0, 255, 0) ' 替换成的颜色RGB值
    
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Fill.ForeColor.RGB = clr Then
                shp.Fill.ForeColor.RGB = nclr
            End If
            If shp.Line.ForeColor.RGB = clr Then
                shp.Line.ForeColor.RGB = nclr
            End If
            If shp.TextFrame.HasText Then
                If shp.TextFrame.TextRange.Font.Color.RGB = clr Then
                    shp.TextFrame.TextRange.Font.Color.RGB = nclr
                End If
            End If
        Next shp
    Next sld
End Sub
```
 
3. 将代码中的“clr”和“nclr”变量值改为需要替换的颜色和替换成的颜色的RGB数值（可在“颜色选择器”中获取），然后保存。
 
4. 按下“F5”键或点击“运行”菜单下的“运行宏”执行代码，程序将逐页遍历PPT文档中的所有形状，并将匹配到的颜色进行自动替换。
 
5. 如果需要替换不同的颜色，可以复制该宏代码，并将不同颜色的RGB数值分别替换到代码中。
 
注意：在执行宏代码前应将PPT文档进行备份，避免数据丢失。