«создать новый шрифт темы» в PowerPoint Slide Master с помощью VBA

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.