"create new theme font" 在 powerpoint 幻灯片母版中使用 vba

Question

在 powerpoint 的幻灯片母版视图中，有一个 "customize fonts" 选项可以打开名为 "create new theme fonts" 的 window。使用它，可以为 latin/complex 脚本设置默认 heading/body 字体。等效的 vba 代码是什么？提前致谢。

Answer 1

我相信您正在寻找

Master.TextStyles属性:

Returns a TextStyles collection that represents three text styles — title text, body text, and default text — for the specified slide master.
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。

"create new theme font" 在 powerpoint 幻灯片母版中使用 vba

"create new theme font" in powerpoint slide master using vba

vba

powerpoint

powerpoint-2016