Changer la langue de vérification de l'orthographe sur une présentation PowerPoint

Je sais qu'une réponse a déjà été acceptée (à laquelle j'ai donné +1 car elle fonctionne et est bien écrite), mais pour certaines personnes, l'idée de créer, d'enregistrer, d'utiliser une macro peut être trop effrayante (ou elles peuvent avoir des paramètres de sécurité en place qui rendent cela difficile à réaliser). Une solution plus simple consiste donc à utiliser les fonctionnalités intégrées normales pour ce faire. L'astuce consiste à pouvoir sélectionner tous les objets de toutes les diapositives en même temps, plutôt que les diapositives elles-mêmes, et cela est facilement réalisable dans la vue d'ensemble (malheureusement une fonctionnalité sous-utilisée, mais idéale pour réorganiser un jeu de diapositives, promouvoir et rétrograder des morceaux entiers, par exemple des balles > nouvelles diapositives ou vice versa).

Je n'ai pas PowerPoint 2002 (“XP”), je ne suis donc pas sûr que vous deviez suivre les instructions pour 2000 ou pour 2003, alors je couvre les deux ici :

• En PP 2000 : Allez à la vue d'ensemble, qui est la deuxième icône en partant de la gauche en bas à gauche de l'écran (ressemble à des lignes avec des indentations).
• En PP 2003 et au-delà : Allez à la vue “normale” (disposition en trois volets) et en haut du navigateur de diapositives, choisissez “outline” plutôt que “slides”

Dans les versions antérieures, assurez-vous que la barre d'outils “outline” est visible (Affichage > Barres d'outils > Outlining) et cliquez sur le bouton “Développer tout” (les versions ultérieures vous permettent d'y accéder par un clic droit).

• Ctrl-A pour tout sélectionner.
• Outils > Langue > Choisissez votre langue.
• (à partir de Powerpoint 2013) REVUE > Langue > Définissez la langue de vérification

Travail effectué.

De même, lorsque vous avez tout sélectionné, vous pouvez modifier d'autres choses comme les polices, les couleurs, etc. Bien que, dans de nombreux cas, il soit préférable de changer le diaporama, une présentation qui a eu de nombreux rédacteurs peut avoir beaucoup de formatage “dur” qui s'écarte du master sous-jacent et doit être réinitialisé pour être cohérent. Vous pouvez également réinitialiser les diapositives individuelles dans le style du master, mais cela peut entraîner le déplacement des caractères de remplacement, ce qui peut être indésirable dans certaines situations.

Ce fil de discussion contient la réponse qui a fonctionné pour moi.

Les étapes que j'ai suivies étaient :

1. créer une nouvelle macro :
   1.1. Allez dans Outils, Macro, Éditeur Visual Basic.
   1.2. Insérez un nouveau module vide en sélectionnant Insérer, Module.

2. Collez ce code sur le panneau de droite et enregistrez la macro :

3. Exécutez la macro (en appuyant sur F5 dans l'éditeur, ou en sélectionnant Outils, Macro, Macros, ChangeSpellCheckingLanguage, et en cliquant sur Exécuter).

Après cela, tous les éléments de texte de la présentation auront la nouvelle langue d'orthographe.

Après de nombreuses présentations où je l'ai fait à la main ou en utilisant une macro unique, j'ai finalement réussi à le briser et à en faire un véritable complément PowerPoint.

Je l'ai téléchargé sur mon site web : PowerPoint LanguageFixer

Il s'en occupe :

• réglage de la langue par défaut
• toutes les formes avec des cadres de texte
• cadres de texte en formes groupées (dans la mesure du possible)
• texte dans les tableaux
• des trucs sur le diaporama/note/document maître

Il suffit de régler une des boîtes de texte sur la langue que vous voulez, de la sélectionner et de cliquer sur le bouton.

Voici deux options en fonction de votre situation :

Situation 1 : La copie d'origine d'Office a été installée à partir d'un support d'installation canadien de langue française.

Vous pourrez régler la langue par défaut sur l'anglais, mais les fonctions de base utiliseront la langue maternelle du support d'installation.

La seule correction consiste à désinstaller la version canadienne française et à l'installer à partir d'un support d'installation basé sur l'anglais ou à copier/coller l'ensemble de la présentation dans une nouvelle doc et à la reformater.

.

Situation 2 : Tout semble être en anglais, mais dans des circonstances limitées, des langues étrangères apparaissent.

Dans cette situation, voici les instructions de réparation pour Office 2002 :

1. Cliquez sur le menu Démarrer
2. Pointez sur Programmes
3. Pointez sur Outils Microsoft Office
4. Cliquez sur Paramètres de langue de Microsoft Office XP.
   
5. Cliquez sur l'onglet Langues activées.
   
6. Allez à la boîte Version par défaut de Microsoft Office
7. Sélectionnez la langue que vous souhaitez
8. Cliquez sur OK. Un message apparaîtra pour vous indiquer les modifications qui seront apportées.
   
9. Cliquez sur Continuer

J'espère que cela vous aidera.

Le code affiché par Leonardo est simple et généralement efficace, mais il n'affectera pas les Shapes dans les groupes. Un code plus générique utilise la récursion pour traiter ce cas également (légèrement modifié par rapport à ici , qui se trouve dans le même fil que le code de Leonardo) :

Private Function ChangeLangOfAllText_caller()
    'ChangeLangOfAllText (msoLanguageIDEnglishUS)
    ChangeLangOfAllText (msoLanguageIDSpanishArgentina)
End Function

Private Function ChangeLangOfAllText(ByVal LangID As Long)
    Dim MySlide As Slide
    Dim MyShape As Shape
    Dim MyD As Design
    Dim MyHeaderFooter As HeaderFooter
    Dim i, nbs As Integer
    ''''' First deal with the master slides
    For Each MyD In ActivePresentation.Designs
        For Each MyShape In MyD.SlideMaster.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MyD
    ''''' Now deal with the slides
    ' Enable this for debugging
    'Debug.Print "File " & ActivePresentation.Name & _
      ": working with " & ActivePresentation.Slides.Count & " slides"
    For Each MySlide In ActivePresentation.Slides
        ' Enable this for debugging
        'Debug.Print " Slide index " & MySlide.SlideIndex & ", Slide number " & MySlide.SlideNumber & _
          ": working with " & MySlide.Shapes.Count & " shapes"
        For Each MyShape In MySlide.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the Notes
        For Each MyShape In MySlide.NotesPage.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the master ' doesn't appear to work, have to try something else
        For Each MyShape In MySlide.Master.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MySlide
End Function

Private Function ProcessShapes(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If ((MyShape.Type = msoGroup) Or (MyShape.Type = msoTable)) Then
        On Error Resume Next
        For i = 1 To MyShape.GroupItems.Count
            ''' The trick is to recurse!
            ProcessShapes MyShape.GroupItems.Item(i), LangID
        Next i
    Else
        ChangeLang MyShape, LangID
    End If
End Function

Private Function ChangeLang(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If (MyShape.HasTextFrame) Then
        ' Enable this for debugging
        'Debug.Print " Shape " & MyShape.ZOrderPosition & ", type: " & MyShape.Type & _
          ", has text frame: " & MyShape.HasTextFrame & ", has text: " & MyShape.TextFrame.HasText & _
          ", alt. text: " & MyShape.AlternativeText
        MyShape.TextFrame.TextRange.LanguageID = LangID
    End If
End Function

J'ai eu les mêmes problèmes avec des présentations faites avec PowerPoint allemand et traduites manuellement en anglais. Le problème est que le réglage de la langue est essentiellement un formatage qui s'applique à chaque élément de la zone de texte en soi.

Je ne connais pas de solution pratique – j'ai dû soit vivre avec le décalage, soit changer manuellement le “format” de langue de chaque zone de texte de chaque diapositive. Ce n'est pas drôle, donc je vis surtout avec.