Excel - 是否可以使用 VBA 设置或更改“主题字体”？

Question

在“页面布局”下的功能区菜单中，有一个 菜单点，使用户能够在文档范围内设置标题和正文字体。

我想使用 VBA 一次为多个文档设置该选项。

不管语法如何，我还没弄清楚，官方文档说这些属性是只读的（header font和body font）。这是一项徒劳的事业，还是有一些可以说是黑客的方法来实现这一点，即达到可以编写类似于

的东西的地步

Application.MajorThemeFont.Name ="Arial"

？

或者是否必须以某种方式将已经存在的主题加载到（已经存在的）工作簿中？

Answer 1

在功能区“开发人员”选项卡中按“录制宏”，然后设置字体，颜色或主题，代码将被写入。

Answer 2

这个问题很有帮助！我认为这个问题的正确答案应该是：

您无法使用 VBA/宏定义主题字体，但您可以使用 VBA 加载现有主题。

这对我有用：

   Dim pathappdata As String
   pathappdata = Environ("APPDATA")
   'theme is located at %APPDATA%\Microsoft\Templates\Document Themes\Theme Fonts
    wb.Theme.ThemeFontScheme.Load ( _
        pathappdata & "\Microsoft\Templates\Document Themes\Theme Fonts\Metso fonts.xml" _
        )