在Microsoft Office中预先填充调色板颜色？

Question

我的同事在他们的Excel和PowerPoint文档中使用了非常特定的颜色，他们来找我希望有一些自动化。对于从颜色选择器重新选择相同三种颜色的每个新文档，它们经常必须经历恼人的任务。

他们必须选择RGB值，然后将它们添加到每个文档的“最近颜色”调色板中。

我知道有颜色主题，但他们只想运行VBA脚本或轻松保持通用设置，以便始终预先加载这三种颜色。

问题

是否有快速方式（VBA /功能）来保持通用设置（最近的颜色）以使这三种颜色始终预先加载？

Answer 1

在PowerPoint中，您可以这样做......但我在Excel OM中看不到ExtraColors对象。也许有类似的东西？

Sub AddExtraColors()

    With ActivePresentation.ExtraColors
        .Add RGB(111, 111, 111)
        .Add RGB(222, 222, 222)
        .Add RGB(50, 50, 50)
        ' etc
    End With

End Sub

如果您无法找到更直接的方法，您可以随时添加形状，将其填充设置为您想要的每种额外颜色，一个接一个，然后删除形状。使用的颜色将保留在调色板的额外颜色部分。

Answer 2

我的同事发现了一个很好的解决方案，可以完美地满足我们的需求，虽然它确实涉及使用颜色主题，所以我有点超出了我的问题范围。

您可以导出具有所需颜色的主题，获取主题的XML ％USERPROFILE％\ AppData \ Roaming \ Microsoft \ Templates \ Document Themes \ Theme Colors

然后将其分发给其他人的同一文件夹。

每个Office应用程序然后两次单击该颜色主题。此复制过程可以使用简单的BAT文件完成。