使用 vba 在 PowerPoint 幻灯片母版中“创建新主题字体”答案

【问题标题】："create new theme font" in powerpoint slide master using vba使用 vba 在 PowerPoint 幻灯片母版中“创建新主题字体”
【发布时间】：2019-03-12 01:13:41
【问题描述】：

在 powerpoint 的幻灯片母版视图中，有一个“自定义字体”选项，它会打开一个名为“创建新主题字体”的窗口。使用它，可以为拉丁/复杂脚本设置默认标题/正文字体。什么是等效的 vba 代码？提前致谢。

【问题讨论】：

标签： vba powerpoint powerpoint-2016

【解决方案1】：

我相信你正在寻找

Master.TextStyles 属性：

返回一个 TextStyles 集合，该集合代表指定幻灯片母版的三种文本样式（标题文本、正文文本和默认文本）。
PpTextStyleType Enumeration，特别是 ppBodyStyle 和 ppTitleStyle。

修改Master.TextStyles属性下提供的代码示例：

Sub CustomizeFonts()
    Dim i As Integer

    With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle)
        For i = 1 To .Levels.Count
            With .Levels(i).Font
                .Name = "Garamond"
            End With
        Next i
    End With

End Sub

还有类似的修改标题，用ppTitleStyle替换ppBodyStyle。

【讨论】：

不错的一个！ ppDefaultStyle 设置文本框/形状中文本的默认值，而不是标题和正文文本占位符。