VBA 用于将自定义主题字体文件保存为 xml 以在不同文档中使用

Question

是否可以使用 VBA 自动执行此功能？

我已经看到这个帖子谈论以其他方式设置主题字体（在幻灯片母版上以及在单个形状上设置标题和正文样式），但还没有看到这个问题的答案。

我需要在加载之前保存此 XML。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<a:fontScheme xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" name="My Theme Font">
    <a:majorFont>
        <a:latin typeface="Roboto"/>
        <a:ea typeface=""/>
        <a:cs typeface=""/>
    </a:majorFont>
    <a:minorFont>
        <a:latin typeface="Roboto"/>
        <a:ea typeface=""/>
        <a:cs typeface=""/>
    </a:minorFont >
</a:fontScheme>

我有一段代码可以加载 xml，这是我代码中的最后一步，它的工作原理如下。

.SlideMaster.Theme.ThemeFontScheme.Load(Environ("APPDATA") & "\Microsoft\Templates\Document Themes\Theme Fonts\SourceSansPro.xml")

如何将 xml 从我的插件中的 xml 文件保存到该位置？

Answer 1

您必须加载 xml - 它将自动应用。

.SlideMaster.Theme.ThemeFontScheme.Load Environ("APPDATA") & "\Microsoft\Templates\Document Themes\Theme Fonts\SourceSansPro.xml"