Discussion :

[alpheratz]

Bonjour

Je débute en powerpoint 2010 et j'ai un problème assez fréquent: des présentations où alternent des zones en français et en anglais.

Comme je souhaite pouvoir définir la langue de vérification plus vite qu'en passant par revision>choix de langue > etc j'ai tenté de créer une macro qui permette , à partir d'un bloc de texte sélectionné, de définir la langue de vérif

Question (vu mes souvenirs un peu lointains en VB) comment désigne-ton l'objet "selection"?
en gros , je cherche l'équivalent en VBA powerpoint le VBA word2010 suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Sub français()
'
' français Macro
' définir que texte selectionné est en français
'
    Selection.LanguageID = wdFrench
    Selection.NoProofing = False
    Application.CheckLanguage = True
End Sub

.... qui ne marche pas en VBA PPT (pourquoi?)

[arosec]

Bonjour,

Appel de la macro pour passer vers l'anglais ou le français:

Code :

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

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:

Code :

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

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,

[ujmo4612]

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:

Code :

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

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:

Code :

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

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,