使用随机背景颜色更改 PowerPoint 演示文稿幻灯片的宏

Question

是否有宏可以将 PowerPoint 幻灯片更改为具有随机背景颜色？我查找过 PowerPoint 主题，但它们通常只有几种配色方案。

我正在寻找一种方法来自动将随机背景颜色应用到现有的 PowerPoint 幻灯片？

以下是一个例子：

很高兴有：

• 如果能够控制颜色选择顺序就好了。

笔记：

• 我可以手动更改单个背景颜色。但这不是这个问题的目的。

Answer 1

您可以尝试以下代码。它循环遍历幻灯片并更改其背景颜色。每张幻灯片的颜色都是随机选择的。

注意：测试时，我注意到我必须将幻灯片的背景颜色从白色更改为其他颜色，幻灯片才会开始改变其颜色。我建议您也这样做。

Sub SetRandomBackground()

    Dim x, red, blue, green As Integer
    Dim myslide As Slide

    For Each myslide In ActivePresentation.Slides
       
            red = Int((255 * Rnd) + 1)
            blue = Int((255 * Rnd) + 1)
            green = Int((255 * Rnd) + 1)
            myslide.Background.Fill.ForeColor.RGB = RGB(red, green, blue)

    Next

End Sub