Como alterar o idioma de um PPT traduzido

Posted in Weekly post by

38520.54818-PowerPoint-2013

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?

20 thoughts on “Como alterar o idioma de um PPT traduzido”

    • Olá, Carol!

      Tenta colar este código, por favor, e me diga se funciona:

      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

      Like

      Reply

  3. Ta dando a mesma coisa, fica em amarelo a parte Sub ChangeToPTBR() e aparece que ta dando erro de compilação: “Sub” ou “Faction” não definida. 😦

    Like

    Reply

  4. Bom dia, Carol!

    Sinto muito pela demora na resposta. Início de semana extremamente corrido por aqui!

    Testei aqui e deu certo. Por favor, certifique-se de que esteja seguindo todas as etapas direitinho. Copie este código (verifique se as aspas simples [‘] são retas e não curvas):

    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

    Espero que dê certo agora, pois, caso contrário, não saberei te ajudar, infelizmente.

    Fingers crossed!

    Like

    Reply

    • Que bom que foi útil pra você, Cristine!
      Infelizmente, precisamos seguir todo o processo novamente para cada apresentação do PPT. E às vezes ele não funciona com alguma tabelas, portanto, é necessário mudá-las manualmente.
      De qualquer forma, é bem melhor que fazer slide por slide, né? 😉

      Like

      Reply

Leave a Reply