Espaçamento de linha padrão no Powerpoint 2007

0

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. Há alguma maneira de fazer isso?

Alternativamente, eu também poderia gerenciar se eu pudesse criar uma macro que faz isso. Mas o MS também removeu o gravador de macros do PP2007. Alguém pode ajudar com o código do VBA?

obrigado

— Vinayak
fonte

1

Bem, se você fizer uma macro, você pode 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, isto é. 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.

— Yoh
fonte

Oi obrigado pelo esforço. Eu tentei sua solução, mas estou recebendo um erro - que o valor especificado está fora do intervalo. Por favor, veja estas imagens para mais detalhes sobre o erro: goo.gl/lLCK4 e e goo.gl/ssVFD

— Vinayak

@vinayak Eu atualizei o código com uma verificação extra se a forma contiver algum texto. Esse erro ocorre principalmente em tabelas ou formas de marcador de posição sem texto. (os * são para mostrar as linhas de código editadas, remover antes de usar)

— Yoh

1

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

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

— KurtisT
fonte