&引用；创建新的主题字体“；在powerpoint幻灯片母版中使用vba

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

---

提前谢谢。

我相信您正在寻找

• 财产： 返回表示指定幻灯片母版的三种文本样式（标题文本、正文文本和默认文本）的TextStyles集合

• 特别是

  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

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