A publicação de hoje será jogo rápido e em português, pois ensinarei a vocês a alterarem o idioma de todos os slides de um arquivo PPT de uma só vez. Este tutorial tem como base o Office 2007.

• Clique no ícone “Botão Office” > “Opções do PowerPoint” > “Central de Confiabilidade” > “Configurações da Central de Confiabilidade”.
• Marque a opção “Habilitar todas as macros (não recomendado; códigos possivelmente perigosos podem ser executados)”. Em seguida, marque a caixa “Confiar no acesso ao modelo de objeto do projeto do VBA”. Clique em “OK”.
• Na guia “Mais Usados”, marque a opção “Mostrar guia Desenvolvedor na Faixa de Opções”. Clique em “OK”.
• Na guia “Desenvolvedor”, clique em “Visual Basic”. Clique em “Inserir” > “Módulo”.
• Copie e cole o seguinte código:

Sub ChangeToPTBR()
‘
‘
‘
Dim osld As Slide
Dim oshp As Shape

For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoTextBox Or msoPlaceholder Then
If oshp.HasTextFrame Then
oshp.TextFrame.TextRange.LanguageID = msoLanguageIDBrazilianPortuguese
End If
End If
Next
Next
End Sub

• Salve (Ctrl + S) e feche a janela do Visual Basic.
• Clique em “Macros”, clique na macro que você acabou de criar e clique em “Executar”.

Esse processo mudará o idioma de todas as caixas de texto, mas não de tabelas. Estas precisarão ser alteradas uma a uma.

Este tutorial e o código fornecido acima servem para alterar o idioma de um PPT para português do Brasil. Nunca tentei alterar para outros idiomas. Teoricamente, você deve substituir “msoLanguageIDBrazilianPortuguese” do código acima pelo equivalente do idioma que desejar. A lista com esses nomes pode ser encontrada na página MsoLanguageID Enumeration.

Isso é muito útil para quem traduz arquivos PPT de outro idioma para português. Já me ajudou muito e espero que ajude vocês também.

Dúvidas, perguntas, questões?