Aussi étrange que cela semble dans une société mondialisée, MS PowerPoint développeurs n'ont pas jugé nécessaire pour permettre à leurs utilisateurs de changer la langue d'une présentation entière. Cela devient particulièrement gênant lorsque vous traduisez vos diapositives. Vous pouvez facilement vous retrouver avec un mélange de langues sur une diapositive, et vous remarquerez alors que ce n'est pas possible de sélectionner le principal: le bouton de la langue (dans la barre ci-dessous) n'est tout simplement pas cliquable si un texte multilingue est sélectionné (en format MS Word, cela fonctionne, mais PAS dans MS PowerPoint). Même un mélange entre l'anglais / américain et anglais / Royaume-Uni désactive le bouton.
Le rond-point de base consiste à déterminer la «par défaut» la langue. Il suffit de cliquez sur la langue sur la barre de langue sur certains diapositive d'un langage où cela fonctionne réellement, sélectionnez une langue, et appuyez sur "par défaut":
Chaque nouvelle diapositive sera systématiquement appliquer votre langue par défaut pour toute nouvelle boîte.
Toutefois, cela ne résout pas le problème d'une présentation existante que vous souhaitez traduire. De commencer à écrire en anglais sur une lame de français, l'auto-correcteur mettra l'accent sur l'orthographe, peut-être même le mâcher complètement si vous avez «corriger pendant que vous tapez 'actif. Si vous êtes chanceux, le bouton sélecteur de langue fonctionne. Mais même un simple mélange de français et de français-fr-chmakes il est impossible de l'utiliser.
Alors, comment déterminez-vous la langue d'une diapositive entière? Ou même (woaw) la langue d'une présentation dans son ensemble?
Eh bien, la seule façon de contourner ce n'est une macro que j'ai de (!) Blog Chocotooth de :
Sous SetLangUS () Dim scount, j, k, fcount scount = ActivePresentation.Slides.Count scount Pour j = 1 Pour scount fcount = ActivePresentation.Slides (j). Shapes.Count fcount 'change all shapes: Pour k = 1 Pour le changement fcount 'toutes les formes: Si Formes ActivePresentation.Slides (j). (K). HasTextFrame Puis ActivePresentation.Slides (j). Formes (k). TextFrame _ Les . TextRange.LanguageID = msoLanguageIDEnglishUS End If Suivant k fcount = ActivePresentation.Slides (j). NotesPage.Shapes.Count fcount 'change all shapes: Pour k = 1 Pour le changement fcount 'toutes les formes: Si NotesPage.Shapes ActivePresentation.Slides (j). (K). HasTextFrame Puis ActivePresentation.Slides (j). NotesPage.Shapes (k). TextFrame _ Les . TextRange.LanguageID = msoLanguageIDEnglishUS End If Suivant k Suivant j End Sub
Que devez-vous faire avec ça? Cliquez sur le bouton Visual Basic sur l'onglet «Developer»:
Insérez un nouveau module par un clic droit sur «VBAProject» dans le volet de navigation de gauche:
Cela ouvre une nouvelle fenêtre. Collez le code dans l'. Et le faire fonctionner avec le bouton «play»:
Voir? Toutes les boîtes de texte ont été mis en à l'anglais / américain. Vous pouvez enregistrer ce code pour une utilisation ultérieure dans un fichier avec. Bas extension.
PS: Cher Microsoft, si vous pouviez proposer une solution moins pénible que ce simplement en intégrant la fonctionnalité de la langue de commutation dans PowerPoint, un grand merci à l'avance.
