Как установить весь текст во всех слайдах на тот же шрифт?

Я делаю презентацию, которая сейчас очень похожа на монстра Франкенштейна. Во всех слайдах используется 4 разных шрифта, и я бы хотел нормализовать это. Я хочу, чтобы весь текст был тем же шрифтом.
Как я могу это сделать?

Я попробовал просто выбрать все слайды, но тогда вы не можете выбрать меню « Шрифт» (и это касается моего опыта PowerPoint).

  • Отключить белый фон вложенного текста в PowerPoint
  • Как создать пользовательское меню «Shapes» в Powerpoint
  • Изменение макета слайдов по умолчанию в Powerpoint
  • Как я могу автоматически конвертировать PowerPoint в PDF?
  • Установка рабочего каталога для вставки изображения в PowerPoint
  • Изменение границ файла excel, встроенного в powerpoint
  • Как сделать видеофайл MPEG2 с наивысшим качеством, используя FFMPEG?
  • Как объединить видео с файлом PowerPoint?
  • Отображать иконки Powerpoint равномерно по макетам просмотра?
  • Файл поступает с другого компьютера и может быть заблокирован
  • Как я могу анимировать диаграмму PowerPoint?
  • Как я могу использовать сортировщик слайдов PowerPoint на экране моего ноутбука и полноэкранный слайд на проекторе?
  • 4 Solutions collect form web for “Как установить весь текст во всех слайдах на тот же шрифт?”

    Выберите все слайды ( Ctrl + A ), используя представление « Outline . Затем вы можете изменить шрифт для выбранного текста.

    В 2010 и 2013 годах очень просто

    1) Вкладка «Главная»> «Заменить» (нажмите «Дополнительно»)> «Заменить шрифты»

    Вы должны отредактировать мастер слайдов . Установите все шрифты так, как вы хотите, во всех слайдах в слайдере.

    Вышеупомянутые предложения позволят вам изменить шрифт для любого текста в заголовке / теле / ​​etc. Заполнители («Нажмите здесь», которые появляются на новых слайдах). Это не повлияет на другой текст; Для этого вам нужно будет использовать бит VBA.

     Sub TextFonts() Dim oSl As Slide Dim oSh As Shape Dim sFontName As String ' Edit this as needed: sFontName = "Times New Roman" With ActivePresentation For Each oSl In .Slides For Each oSh In oSl.Shapes With oSh If .HasTextFrame Then If .TextFrame.HasText Then .TextFrame.TextRange.Font.Name = sFontName End If End If End With Next Next End With End Sub 
    Давайте будем гением компьютера.