Espaçamento de linha padrão no Powerpoint 2007

Question

Eu quero definir o espaçamento de linha padrão no Powerpoint 2007 para 1,1 em vez de 0,8 que a Microsoft definiu como padrão. Existe alguma maneira de fazer isso?

Como alternativa, também posso gerenciar se posso criar uma macro que faça isso. Mas o MS também removeu o gravador de macros do PP2007. Alguém pode ajudar com o código VBA?

Obrigado

    

Answer 1

Bem, se você criar 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 de linha 3 (por exemplo), mas não há espaço para ter esse tipo de espaçamento entre linhas, o PowerPoint automaticamente reduz, por exemplo. para 2.8. Quando você executa essa macro, o espaçamento de linha será 1.2 ou 1.3 ou algo parecido. Somente quando você executar a macro uma segunda vez, ele irá reparar esse problema. Eu não consegui descobrir de onde esse problema estava vindo, já que a depuração do código fez com que ele funcionasse sem falhas desde a primeira execução.

    

Answer 2

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 isso funcionou da mesma forma em 2007. Basta ir para o View / Slide Master, clicar no slide mestre (o superior), depois clicar no espaço reservado para o texto principal. Ctrl-a para selecionar todos, clique com o botão direito do mouse, escolha Paragraph e altere o espaçamento entre linhas para 1.1. Voila, ele vai se espalhar em todos os layouts e slides.

Se você já tiver substituído o padrão em todos os slides, vá para cada um desses slides e, na guia Página Inicial, na seção Apresentações, escolha Redefinir. (Observe que isso redefinirá todas as alterações feitas no slide inteiro.)