"создать новый шрифт темы" в 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,