Vous souhaitez traduire une présentation déjà créée, il faut donc modifier la langue du correcteur.
Malheureusement, il n'y a pas moyen dans PowerPoint de modifier par défaut cette langue, dans le masque par exemple.
Il faut donc modifier la langue sur chaque diapo ce qui peut être laborieux. Il faut donc une macro qui le ferait pour vous. Voici donc une macro à associer à une UserForm
Private Sub CommandButton1_Click()
On Error Resume Next
' Declare variables.
Dim sld As Slide
Dim shp As Shape
Dim colShapes As New Collection
Dim p As TextRange
Dim r As TextRange
Dim langue
If Me.OptionButton1 = True Then
langue = msoLanguageIDFrench
langue_id = 1036
l = "française"
ElseIf Me.OptionButton2 = True Then
langue = msoLanguageIDEnglishUS
langue_id = 1033
l = "anglaise"
ElseIf Me.OptionButton3 = True Then
langue = msoLanguageIDSpanish
langue_id = 3082
l = "espagnole"
Else
End If
' fait une boucle sur toutes les diapos de la presentation.
For Each sld In ActivePresentation.Slides
' fait une boucle sur toutes les formes de chaque diapo pour
For Each shp In sld.Shapes
colShapes.Add shp
CheckGroups shp, colShapes
Next
For Each shp In sld.NotesPage.Shapes
colShapes.Add shp
Next
Next
For Each shp In ActivePresentation.SlideMaster.Shapes
colShapes.Add shp
Next
For Each shp In ActivePresentation.TitleMaster.Shapes
colShapes.Add shp
Next
For Each shp In ActivePresentation.NotesMaster.Shapes
colShapes.Add shp
Next
For Each shp In colShapes
If shp.TextFrame.TextRange.LanguageID = 1031 Then
Debug.Print shp.Name
End If
shp.TextFrame.TextRange.LanguageID = langue
Next
MsgBox "Terminé ! la langue active est la langue " & l
ActivePresentation.DefaultLanguageID = langue
Unload Me
End Sub
Sub CheckGroups(shp As Shape, colShapes As Collection)
On Error Resume Next
If shp.GroupItems.Count > 0 Then
For Each g In shp.GroupItems
colShapes.Add g
Next
End If
End Sub
NB : Dans cette macro, on a choisi l'anglais américain, le français, et l'espagnol. Vous pouvez personnaliser avec d'autres langues dont vous possédez le dictionnaire.