PowerPoint VBA插件：如何让表格标题字体随主题字体切换而变化？

你当前代码的问题在于直接将字体名称赋值为当前主题的字体名，这相当于把字体"固定"死了，而非绑定主题字体的动态引用。要实现字体随主题自动切换，需要设置文本的主题字体类型，而非硬编码字体名称。

重写后的代码 #

Sub FormatTable(table As table)
    For Each c In table.Rows(1).Cells
        ' 将标题行文本绑定到主题主要字体
        c.Shape.TextFrame.TextRange.Font.ThemeFont = msoThemeFontMajor
    Next c
End Sub

关键说明 #

• msoThemeFontMajor 对应主题字体方案中的主要字体（即你原代码中MajorFont(1)指向的主题字体）
• 设置该属性后，表格标题的字体会与主题字体动态关联，切换主题时自动同步新主题的主要字体
• 若需要使用主题的次要字体，只需将msoThemeFontMajor替换为msoThemeFontMinor

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