Bonjour,
Sur Powerpoint Mac Osx

ans le dernier Sub il faudra passer par TextFrame2 au lieu de TextFrame pour avoir accès à la propriété LanguageID
Tout le reste fonctionne parfaitement.
Appel de la macro pour passer vers l'anglais ou le français:
1 2 3 4 5 6 7 8 9 10
|
Option Explicit
Public Sub ChangeSpellCheckingToFrench()
ChangeSpellCheckingToLanguage MsoLanguageID.msoLanguageIDFrench
End Sub
Public Sub ChangeSpellCheckingToEnglishUK()
ChangeSpellCheckingToLanguage MsoLanguageID.msoLanguageIDEnglishUK
End Sub |
Code générique pour modifier la langue:
1 2 3 4 5 6 7 8 9 10
|
Private Sub ChangeSpellCheckingToLanguage(languageID As MsoLanguageID)
Dim sl As Slide
Dim sh As Shape
For Each sl In ActivePresentation.Slides
For Each sh In sl.Shapes
If sh.HasTextFrame Then sh.TextFrame.TextRange.languageID = languageID
Next sh
Next sl
End Sub |
Cdlt,
Partager