☰

Espaçamento entre linhas padrão no Powerpoint 2007

tag-icon • tag-icon microsoft-office-2007 microsoft-powerpoint vba microsoft-powerpoint-2007
Espaçamento entre linhas padrão no Powerpoint 2007

Quero definir o espaçamento entre linhas padrão no Powerpoint 2007 para 1,1 em vez de 0,8, que a Microsoft definiu como padrão. Há alguma maneira de fazer isso?

Alternativamente, eu também poderia gerenciar se pudesse criar uma macro que fizesse isso. Mas a MS também removeu o Macro Recorder do PP2007. Alguém pode ajudar com o código VBA?

Obrigado

Responder1

Bem, se você fizer uma macro, poderá usar este código:

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

Mas há uma falha. Quando você tem algum texto com espaçamento entre linhas 3 (por exemplo), mas não há espaço para ter esse tipo de espaçamento entre linhas, o PowerPoint irá reduzi-lo automaticamente, ou seja. para 2,8. Quando você executa esta macro, o espaçamento entre linhas se tornará 1,2 ou 1,3 ou algo parecido. Somente quando você executar a macro uma segunda vez, o problema será reparado. Não consegui descobrir de onde vinha esse problema, pois a depuração do código fez com que ele funcionasse perfeitamente desde a primeira execução.

Responder2

Eu sei que esta é uma pergunta antiga, mas as pessoas devem saber que você não precisa de código para isso! Estou usando 2013, mas acredito que funcionou da mesma forma em 2007. Basta ir em View/Slide Master, clicar no slide mestre (o de cima) e depois clicar no espaço reservado para texto principal. Ctrl-a para selecionar tudo, clique com o botão direito, escolha Parágrafo e altere o espaçamento entre linhas para Múltiplo 1.1. Voila, ele se espalhará por todos os layouts e slides.

Se você já substituiu o padrão em algum slide, vá para cada um desses slides e, na guia Início da seção Slides, escolha Redefinir. (Observe que isso redefinirá todas as alterações feitas em todo o slide.)

informação relacionada