Modifier la langue d'une forme en VBA

Bonjour,

Je souhaiterais me créer un bouton de commande qui puisse me faire le changement de langue d'un texte ou d'une forme sélectionné.

Sous WORD, ça marche impeccable ==> voir ci-dessous le code VBA sous WORD

Code:

---

1 2 3 4

Private Sub AnglaisUK_Click() Selection.LanguageID = wdEnglishUK Selection.HomeKey Unit:=wdLine End Sub

---

Par contre, sous POWERPOINT, l'enregistreur de macro en remonte pas cette notion de wdEnglishUK.
Action faite =
- sélection de la forme de texte
- choix de langue anglais UK au lieu de français.

NB: l'enregisteur de macro a bien passé le texte du rectangle 3 (exemple) en anglais. Ci-dessous le code enregistrée...

Code:

---

1 2 3

Sub Macro1() ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select End Sub

---

Quelle est la solution pour pouvoir gérer cette informatin avec du code VBA sous POWERPOINT ?

Cdlt

Personne n'a une idée qui pour moi est toujours d'actualité ?

Merci de votre réponse.

Cdlt

J'ai progressé seul et ça semble fonctionner...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Langue_UK() Dim I, J As Integer ActivePresentation.DefaultLanguageID = msoLanguageIDEnglishUK With ActivePresentation For I = 1 To .Slides.Count For J = 1 To .Slides(I).Shapes.Count If .Slides(I).Shapes(J).Type = 14 Or .Slides(I).Shapes(J).Type = 1 Then .Slides(I).Shapes(J).TextFrame.TextRange.Paragraphs.LanguageID = msoLanguageIDEnglishUK End If Next J Next I End With End Sub

---