☰

Межстрочный интервал по умолчанию в Powerpoint 2007

tag-icon • tag-icon microsoft-office-2007 microsoft-powerpoint vba microsoft-powerpoint-2007
Межстрочный интервал по умолчанию в Powerpoint 2007

Я хочу установить межстрочный интервал по умолчанию в Powerpoint 2007 на 1,1 вместо 0,8, которые Microsoft установила по умолчанию. Есть ли способ сделать это?

В качестве альтернативы я мог бы также справиться, если бы я мог создать макрос, который делает это. Но MS также удалили Macro Recorder из PP2007. Может кто-нибудь помочь с кодом VBA??

Спасибо

решение1

Ну, если вы создадите макрос, то можете использовать этот код:

Sub SetLineSpacing()
Dim sld As Slide
Dim shp As Shape

For Each sld In Application.ActivePresentation.Slides
  For Each shp In sld.Shapes
    *If shp.TextFrame.HasText Then*
       With shp.TextFrame.TextRange.ParagraphFormat
          .LineRuleWithin = msoTrue
          .SpaceWithin = 1.1
       End With
     *End If*
   Next
 Next
End Sub

Но есть один недостаток. Когда у вас есть текст с межстрочным интервалом 3 (например), но нет места для такого межстрочного интервала, PowerPoint автоматически уменьшит его, например, до 2,8. Когда вы запустите этот макрос, межстрочный интервал станет 1,2 или 1,3 или что-то в этом роде. Только когда вы запустите макрос во второй раз, он исправит эту проблему. Я не мог понять, откуда взялась эта проблема, хотя отладка кода заставила его работать безупречно с первого запуска.

решение2

Я знаю, что это старый вопрос, но люди должны знать, что для этого не нужен код! Я использую 2013, но я думаю, что это работало так же в 2007. Просто перейдите в Вид / Мастер слайдов, щелкните на мастер-слайде (верхнем), затем щелкните на основном текстовом заполнителе. Ctrl-a, чтобы выбрать все, затем щелкните правой кнопкой мыши, выберите Абзац и измените Интервал строк на Несколько 1.1. Вуаля, это будет распространяться на каждый макет и каждый слайд.

Если вы уже переопределили настройки по умолчанию на каких-либо слайдах, перейдите к каждому из этих слайдов и на вкладке «Главная» в разделе «Слайды» выберите «Сброс». (Обратите внимание, что это приведет к сбросу всех изменений, внесенных вами для всего слайда.)

Связанный контент