Comment changer la langue de toutes les diapositives Powerpoint en même temps ?

En plus de la réponse fournie par Mastergalen et pour répondre aux commentaires concernant le nouveau texte :

Si vous remarquez que la langue change automatiquement lorsque vous commencez à taper du nouveau texte (ce qui est très ennuyeux), vous devez changer la langue par défaut de PowerPoint :

• s'assurer que la fenêtre PowerPoint est une fenêtre active
• dans le Windows Taskbar (oui, en fait pas dans PowerPoint), vérifiez si Language bar est visible,
  • sinon, allez à Control Panel > Region and Language > Keyboards and Languages . Cliquez sur Change keybords... , passer à Language bar et vérifiez Docked in the taskbar option. (Ceci est tiré de Win7, donc peut être un peu différent dans d'autres versions).
• action clé maintenant - dans le Language bar dans la barre des tâches, cliquez sur le code de langue et passez à EN (si vous voulez actuellement utiliser l'anglais dans PowerPoint). À partir de maintenant, tout nouveau texte dans PowerPoint sera dans la langue sélectionnée :-)
• si vous voulez écrire dans votre langue d'origine, il suffit de la modifier.

La version de Duncan fonctionne bien pour tout sauf les tables. J'ai trouvé un autre code qui semble également fonctionner avec les tableaux : https://stackoverflow.com/questions/4735765/powerpoint-2007-set-language-on-tables-charts-etc-that-contains-text

Public Sub changeLanguage()
    On Error Resume Next
    Dim gi As GroupShapes '<-this was added. used below
    'lang = "English"
    lang = "Norwegian"
    'Determine language selected
    If lang = "English" Then
        lang = msoLanguageIDEnglishUK
    ElseIf lang = "Norwegian" Then
        lang = msoLanguageIDNorwegianBokmol
    End If
    'Set default language in application
    ActivePresentation.DefaultLanguageID = lang

    'Set language in each textbox in each slide
    For Each oSlide In ActivePresentation.Slides
        Dim oShape As Shape
        For Each oShape In oSlide.Shapes
            'Check first if it is a table
            If oShape.HasTable Then
                For r = 1 To oShape.Table.Rows.Count
                    For c = 1 To oShape.Table.Columns.Count
                    oShape.Table.Cell(r, c).Shape.TextFrame.TextRange.LanguageID = lang
                    Next
                Next
            Else
                Set gi = oShape.GroupItems
                'Check if it is a group of shapes
                If Not gi Is Nothing Then
                    If oShape.GroupItems.Count > 0 Then
                        For i = 0 To oShape.GroupItems.Count - 1
                            oShape.GroupItems(i).TextFrame.TextRange.LanguageID = lang
                        Next
                    End If
                'it's none of the above, it's just a simple shape, change the language ID
                Else
                    oShape.TextFrame.TextRange.LanguageID = lang
                End If
            End If
        Next
    Next End Sub

J'ai créé un module complémentaire en 2014 pour moi-même, qui fonctionne toujours très bien dans PowerPoint 2016. https://github.com/wobba/officeaddin/releases/tag/v1.0.1

Il recherche les langues utilisées et vous permet de les changer toutes en même temps, en boucle.

Si les autres méthodes ne donnent rien, les changements inattendus de la langue peuvent également être causés par le réglage de la langue dans le maître des diapositives.

Pour le modifier, allez sur View > Slide Master sélectionnez la diapositive maîtresse la plus proche du parent, sélectionnez tous les éléments et changez la langue comme décrit dans la page de manuel de l'utilisateur. réponse acceptée . La modification devrait se propager à toutes les mises en page, mais le texte de remplacement restera dans la langue d'origine.

Si possible, la solution propre est d'utiliser un modèle configuré avec la langue correcte. Cependant, selon les modèles imposés par l'entreprise / l'installation du bureau, ou simplement en essayant de corriger un fichier existant, cela peut ne pas être possible.