Comment changer la langue dans tout un fichier PowerPoint

Vous avez reçu un fichier PowerPoint qu’on vous demande de traduire. Pour profiter du correcteur d’orthographe, vous voulez changer la langue du texte. Mais – oh misère – c’est uniquement possible cadre par cadre. Voici la solution:

Changer la langue manuellement

  1. Sélectionner tous les cadres de la page (ctrl-a)
  2. Changer la langue dans la barre tout en bas

On pourrait croire que depuis la trieuse de diapos et en sélectionnant toutes les pages on fait la même procédure mais pour tout le ficher – mais non, ce n’est pas prévu. Donc il faut sortir les gros moyens:

Une macro VBA pour changer la langue

La seule façon de le changer la langue dans tout le fichier en une fois est de passer par la programmation VBA.

Activer le menu développeur

La première difficulté est d’afficher l’éditeur de code. Microsoft n’affiche pas le menu développeur par défaut, donc voici comment le faire dans PowerPoint 2010 ou PowerPoint 2013

  1. Cliquez sur l’onglet Fichier
  2. Cliquez sur Options
    Power Point - changer la langue - activer menu développeur - screenshot
  3. Cliquez sur Personnaliser le ruban (customize ribbon en anglais – rouge à gauche dans l’image)
  4. Sous Personnaliser le ruban et Onglets principaux, activez la case à cocher Développeur (bleu à droite dans l’mage

Ouvrir l’éditeur VBA

Maintenant vous allez dans le ruban « Développeur » et vous ouvrez « Visual Basic », la 1ère icône 
Power Point - changer la langue - ouvrir VBA - Screenshot

Ensuite, vous allez dans le menu pour insérer un « Nouveau Module »

Power Point changer la langue - nouvelle macro - screen shot

Dans ce module vous copiez ceci:

Option Explicit
Sub SetTextLang()
 Dim sl As Slide
 Dim sh As Shape
 For Each sl In ActivePresentation.Slides
    For Each sh In sl.Shapes
       If sh.HasTextFrame Then
          sh.TextFrame.TextRange.LanguageID = _
            msoLanguageIDSwissGerman
       End If
    Next sh
 Next sl
End Sub

Notez bien le code « msoLanguageIDSwissGerman » – c’est la langue dans laquelle vous corriger le texte. Voci une liste des codes habituels chez nous

  • msoLanguageIDEnglishUK
  • msoLanguageIDEnglishUS
  • msoLanguageIDFrench
  • msoLanguageIDSwissFrench
  • msoLanguageIDSwissGerman
  • msoLanguageIDSwissItalian

Puis vous pointez le cursor quelque part dans la ligne qui commence par « Sub SetTextLang… » et vous pressez la touche F5.

Après quelques secondes – cela dépend du nombre de cadres à changer – tous vos cadres auront la langue choisie.

Microsoft a publié une macro qui traite aussi des canvas et autres endroits où la langue peut être choisie, mais pour mes besoins, le code ci-dessus est suffisant.

Bonne traduction!

 

Sources: