如何用VBA从指定RGB颜色列表随机选值修改PPT形状颜色

Sub ChangeShapeColor()
    Dim oSh As Shape
    Dim oSl As Slide
    ' 预定义颜色数组，可按需增减、修改RGB值
    Dim colorArr As Variant
    colorArr = Array(RGB(195, 14, 96), RGB(255, 192, 0), RGB(0, 176, 80), RGB(112, 48, 160), RGB(237, 125, 49))
    
    ' 初始化随机数生成器，避免每次运行随机序列重复
    Randomize

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            ' 匹配需替换的原始填充色
            If oSh.Fill.ForeColor.RGB = RGB(68, 114, 196) Then
                ' 生成适配数组范围的随机下标
                Dim randomIndex As Integer
                randomIndex = Int((UBound(colorArr) - LBound(colorArr) + 1) * Rnd + LBound(colorArr))
                ' 赋值随机选中的填充色
                oSh.Fill.ForeColor.RGB = colorArr(randomIndex)
            End If
        Next oSh
    Next oSl
End Sub

核心改动说明 #

• 新增预定义颜色数组colorArr：所有需要用到的替换色都可以放在这个数组里，支持自定义增减、修改RGB参数
• 新增Randomize语句：初始化随机数种子，避免每次运行宏生成的随机颜色顺序完全一致
• 替换逻辑调整：匹配到目标颜色后，自动基于数组的上下限生成合法的随机下标，再将对应颜色赋值给形状，适配任意长度的颜色数组，无需手动调整随机数范围

如果需要同时匹配多个原始替换颜色，直接修改判断条件即可，示例：

If oSh.Fill.ForeColor.RGB = RGB(68, 114, 196) Or oSh.Fill.ForeColor.RGB = RGB(255,0,0) Then

内容的提问来源于stack exchange，提问作者donali