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

Question

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

Answer 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

与修改标题类似，将ppBodyStyle替换为ppTitleStyle。