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

Question

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

Answer 1

我相信你正在寻找

• Master.TextStyles属性：

  返回一个 TextStyles 集合，该集合表示指定幻灯片母版的三种文本样式（标题文本、正文文本和默认文本）。

• PpTextStyleType 枚举，特别是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

和类似修改标题的东西，替换ppBodyStyle为ppTitleStyle.