user_mobilelogo

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
DimAs TextRange
DimAs TextRange
Dim langue

If Me.OptionButton1 = True Then
langue = msoLanguageIDFrench
langue_id = 1036
= "française"
ElseIf Me.OptionButton2 = True Then
langue = msoLanguageIDEnglishUS
langue_id = 1033
= "anglaise"
ElseIf Me.OptionButton3 = True Then
langue = msoLanguageIDSpanish
langue_id = 3082
= "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 EachIn 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.

 

 

Statistiques

Aujourd'hui579
Hier1037
Cette semaine11851
Ce mois38288
Total depuis 200417490602

12
visiteurs actuellement en ligne

24 septembre 2023