Discussion :

[November-Oscar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[November-Oscar]

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

Merci de votre réponse.

Cdlt

[November-Oscar]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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