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
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.
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.)
fonte