Alterar o idioma para Inglês / EUA em todos os slides e caixas em PowerPoint 2007 ou 2010
Por mais estranho que pareça em uma sociedade globalizada, os desenvolvedores de MS PowerPoint não ter considerado necessário para permitir que seus usuários para alterar o idioma de uma apresentação inteira. Isso se torna especialmente irritante quando você traduzir seus slides. Você facilmente acabar com uma mistura de línguas em um slide, e você verá, então, que não é possível selecionar o principal: o botão de linguagem (na barra abaixo) simplesmente não é clicável se um texto multilíngüe é selecionado (em MS Word, isso funciona, mas não em MS PowerPoint). Mesmo uma mistura entre o Inglês / Inglês e EUA / UK desabilita o botão.
A rotunda básico consiste na determinação do "por defeito" idioma. Simplesmente clique no idioma na barra de linguagem em algum slide um idioma, caso este realmente funciona, selecione um idioma e pressione "por defeito":
Cada novo slide irá aplicar sistematicamente seu idioma padrão para qualquer nova caixa.
No entanto, isto não resolve o problema de uma apresentação existente você deseja traduzir. Começando a escrever em Inglês em um slide francês, o auto-corretor irá sublinhar a sua ortografia, talvez até mesmo mastigá-lo por completo, se tiver 'corrigir enquanto você digita "ativo. Se você tiver sorte, o botão seletor de linguagem funciona. Mas mesmo a simples mistura de francês e francês-fr-chmakes impossível usá-lo.
Então, como você determinar o idioma de um slide inteiro? Ou mesmo (woaw) a língua de uma apresentação inteira?
Bem, a única maneira de contornar este é um macro que eu tenho a partir de (!) Blog Chocotooth de :
scount, j, k, fcount scount = ActivePresentation.Slides.Count For j = 1 To scount fcount = ActivePresentation.Slides(j).Shapes.Count For k = 1 To fcount 'change all Sub SetLangUS () Dim scount, j, k, fcount scount = ActivePresentation.Slides.Count Para j = 1 To scount fcount = ActivePresentation.Slides (j). Shapes.Count Para k = 1 To mudança fcount 'tudo k = 1 To fcount 'change all _. TextRange.LanguageID = End If Next k msoLanguageIDEnglishUS fcount = ActivePresentation.Slides (j). NotesPage.Shapes.Count Para k = 1 To mudança fcount 'tudo j End Sub _. TextRange.LanguageID = End If Next k msoLanguageIDEnglishUS Next End Sub j
O que você deve fazer com isso? Clique no botão Visual Basic no separador 'desenvolvedor':
Insira um novo módulo com o botão direito do mouse em "VBAProject 'no painel de navegação à esquerda:
Isso abre uma nova janela. Cole o código para ele. E executá-lo com o botão 'play':
Veja? Todas as caixas de texto têm sido definido para Inglês / EUA. Você pode salvar este código para uso posterior em um arquivo com extensão. Bas extensão.
PS: Caro Microsoft, se você poderia oferecer uma solução menos tedioso do que isso, basta integrar o recurso de linguagem comutação em PowerPoint, muito obrigado antecipadamente.
