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

我的同事们在他们的Excel和PowerPoint文档中使用了非常特定的颜色，他们来到我希望的一些自动化。他们经常不得不为每个重新从颜色select器中选取相同的三种颜色的新文档来完成烦人的任务。

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

在这里输入图像说明

我知道有颜色的主题，但他们只是想运行一个VBA脚本或容易坚持通用的设置，这三种颜色总是预先加载。

题

有没有一个快速的方法（VBA /function）来坚持通用设置（最近的颜色），这三种颜色总是预先加载？

在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

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

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

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

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

然后，每个Office应用程序都会将该颜色主题单击两次。这个复制过程可以用一个简单的BAT文件来完成。