A voir également:
- Comment mettre powerpoint en francais
- Mettre powerpoint en francais - Meilleures réponses
- Powerpoint en anglais - Meilleures réponses
- Choix de la langue dans Powerpoint ✓ - Forum - Powerpoint
- Carte de france departement personnalisable powerpoint - Forum - Word
- Powerpoint correcteur orthographique français - Articles
- Carte de france modifiable powerpoint gratuite ✓ - Forum - Loisirs / Divertissements
- Powerpoint 2003 gratuit en français ✓ - Forum - Powerpoint
4 réponses
Gilles Foucault
Testé sur MS PowerPoint 2003 :
1) Va dans le menu "Outils > Macro > Macros "
2) dans le champ "nom" de la fenetre, tape "change_language_to_french"
3) clique sur le bouton créer
4) défini le code de la macro avec le code ci-dessous
5) Exécute le code avec F5
Sub change_language_to_french()
'
' Macro créée 07/04/2007 par Gilles Foucault
'
' Declare variables.
Dim sld As Slide
Dim shp As Shape
' Loop through all the slides in the presentation.
For Each sld In ActivePresentation.Slides
' Loop through each shape on each slide.
For Each shp In sld.Shapes
' If the Shape is a text box...
If shp.Type = msoTextBox Or msoPlaceholder Then
If shp.HasTextFrame Then
' ...then change the language to US English.
' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
shp.TextFrame.TextRange.LanguageID = msoLanguageIDFrench
End If
End If
Next
Next
End Sub
1) Va dans le menu "Outils > Macro > Macros "
2) dans le champ "nom" de la fenetre, tape "change_language_to_french"
3) clique sur le bouton créer
4) défini le code de la macro avec le code ci-dessous
5) Exécute le code avec F5
Sub change_language_to_french()
'
' Macro créée 07/04/2007 par Gilles Foucault
'
' Declare variables.
Dim sld As Slide
Dim shp As Shape
' Loop through all the slides in the presentation.
For Each sld In ActivePresentation.Slides
' Loop through each shape on each slide.
For Each shp In sld.Shapes
' If the Shape is a text box...
If shp.Type = msoTextBox Or msoPlaceholder Then
If shp.HasTextFrame Then
' ...then change the language to US English.
' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
shp.TextFrame.TextRange.LanguageID = msoLanguageIDFrench
End If
End If
Next
Next
End Sub
nono
Bonjour, j'ai exactement le même problème mais je ne parviens pas à activer la langue je dois surement mal m'y prendre! Est-ce qui serait possible de plus détailler?
Guillaume Ang
Bonjour,
sur la base de vos excellents conseils, j'ai créé un PPT avec macros activées que j'ai partagé avec tous mes collègues.
J'y ai créé deux macros : french_to_english et english_to_french
Quand un de mes collègues veut utiliser la procédure :
- Il ouvre le PPT avec macros en même temps que celui qu'il veut modifier.
- Affichage > Macros
- Sélectionner "Macro disponible dans ..." "Toutes les Présentations ouvertes"
- Sélectionner la macro qui va bien et Executer.
Ca évite d'avoir a recréer la macro à chaque fois et d'enregistrer des PPT avec macros.
sur la base de vos excellents conseils, j'ai créé un PPT avec macros activées que j'ai partagé avec tous mes collègues.
J'y ai créé deux macros : french_to_english et english_to_french
Quand un de mes collègues veut utiliser la procédure :
- Il ouvre le PPT avec macros en même temps que celui qu'il veut modifier.
- Affichage > Macros
- Sélectionner "Macro disponible dans ..." "Toutes les Présentations ouvertes"
- Sélectionner la macro qui va bien et Executer.
Ca évite d'avoir a recréer la macro à chaque fois et d'enregistrer des PPT avec macros.
Dido Clinton
y'a beaucoup plus simple :
- ouvrir le fichier PPT
- cliquer sur onglet "révision"
- cliquer sur "Langue"
- cliquer sur "préférences linguistiques"
- sélectionner la langue "français"
- cliquer sur "OK".
et le tour est joué !
- ouvrir le fichier PPT
- cliquer sur onglet "révision"
- cliquer sur "Langue"
- cliquer sur "préférences linguistiques"
- sélectionner la langue "français"
- cliquer sur "OK".
et le tour est joué !
m@rina
- Messages postés
- 16915
- Date d'inscription
- mardi 12 juin 2007
- Statut
- Contributeur
- Dernière intervention
- 25 janvier 2021
Sûrement pas ! Le tour n'est pas joué pour autant... Le changement de langue fait de cette façon n'intervient que sur le texte sélectionné. S'il y a 3 diapos, ça va, s'il y en a 100, c'est déjà moins évident...
A savoir qu'on peut sélectionner toutes les diapos via l'affichage Plan, mais ça ne modifiera pas la langue des zones de texte.
m@rina
A savoir qu'on peut sélectionner toutes les diapos via l'affichage Plan, mais ça ne modifiera pas la langue des zones de texte.
m@rina
bob_37
Juste pour dire que je viens d'essayer avec le macro donné au début par Gilles et que cela fonctionne très bien dans mon cas
Toutes les textes initialement en Anglais se retrouve avec des erreur d'orthographe ce que me convient parfaitement, car je vais maintenant pouvoir retaper le texte en français directement sans valider la langue pour CHAQUE texte box
Donc merci
Toutes les textes initialement en Anglais se retrouve avec des erreur d'orthographe ce que me convient parfaitement, car je vais maintenant pouvoir retaper le texte en français directement sans valider la langue pour CHAQUE texte box
Donc merci
1/ sélectionner tout le contenu dans la slide (ctrl A)
2/ dans l'onglet Révision -> Langue
3/ définir la langue de vérification
ça marche super bien merci !
... sauf quand l'objet est un tableau à l'intérieur de la diapo.
Quelqu'un saurai-t-il compléter le code pour que ça marche aussi sur les tableaux ? merci ++ !