Se connecter / S'enregistrer

Résolu Comment changer le langage dans Powerpoint 2007 ?

Solutions (6)
Tags :
  • Microsoft Powerpoint
  • Logiciels
|
Bonjour à tous

Dans un diaporama créé à l'éranger j'ai des diapos avec du texte
que je veux traduire et je fais ceci:

•Sélectionnez le texte.
•Dans l’onglet Révision, dans le groupe Vérification, cliquez sur Définir la langue.

Si en plus je clique sur "Par défaut" un message me signale que
"Le remplacement de la langue par défaut sera appliqué à la présentation en cours et à toutes les présentations à venir"

Je clique sur OUI
•Or malgré cela la diapo suivante ayant un texte n'indiquera
pas le Français et je devrais encore faire la sélection
•Question SVP :
Comment faire enregistrer le choix de la langue en "Français" sur
l'ensemble du diaporama sans avoir besoin de faire sur chaque
diapo la manoeuvre indiquée plus haut ?

Merci d'avance

Bonne journée
  • Meuniers a édité ce message
Contenus similaires
Meilleure solution
partage
|
Y a pas de soucis je vais t'expliquer.

Juste après avoir créé la macro "change_language_to_french", tu obtiens la fenêtre avec l'entête "Sub change_language_to_french()".
A ce moment tu dois juste effacer tout le code puis coller le code suivant :
Citation :
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


Pour finir appuie sur F5 qui va permettre l'exécution du code.

Si tu n'y arrives toujours pas n'hésite pas à demander je pourrai même te faire un tutoriel vidéo.
  • Commenter cette solution |
Score
0
òh
òi
|
Et bien content pour toi ! :) 
  • Commenter cette réponse |
Score
0
òh
òi
|
Meilleure réponse sélectionnée par C6Bon.
  • Commenter cette réponse |
Score
0
òh
òi
|
Bravo Skull-Shadow

Cela fonctionne un GRAND MERCI

Bon après-midi
  • Commenter cette réponse |
Score
0
òh
òi
|
Bonjour Skull-Shadow

Pardon pour le retard à te remercier mais j'étais absent hier après-midi
J'ai essayé ta macro mais je suis perdu pour les conseils aux lignes 4 et 5
Quand je crée (comme expliqué ligne 3) j'ai bien un tableau qui s'ouvre
avec en tête : Sub change_language_to_french()
Mais pour la suite je ne comprends pas les notes de Gilles Foucault

Merci d'avoir répondu à mon post
Bonne journée
  • Commenter cette réponse |
Score
0
òh
òi
|
Bonjour,

Tu pourrais peut-être essayé ceci :
Citation :
Gilles Foucault 8 avr 2007 à 00:15
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
Source : http://www.commentcamarche.net/forum/affich-1232156-cho...
  • Commenter cette réponse |

Ce n'est pas ce que vous cherchiez ?

Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS