So seltsam es in einer globalisierten Gesellschaft scheint, haben MS PowerPoint-Entwickler nicht für notwendig erachtet, damit ihre Nutzer, die Sprache der gesamten Präsentation zu verändern. Dies wird besonders ärgerlich, wenn Sie Ihre Folien zu übersetzen. Sie einfach am Ende mit einem Mix aus Sprachen auf einer Folie, und Sie werden bemerken dann, dass es nicht möglich ist, um das Hauptmenü wählen Sie ein: die Sprache Taste (an der Bar unten) ist einfach nicht anklickbar, wenn ein mehrsprachiger Text ausgewählt (in MS Word, das funktioniert, aber nicht in MS PowerPoint). Auch eine Mischung zwischen Englisch / US und Englisch / UK deaktiviert den Button.
Die grundlegende Kreisverkehr besteht darin, die "by default" Sprache. Klicken Sie einfach auf die Sprache auf die Sprache bar auf irgend einem Dia-Sprache, wo dies tatsächlich funktioniert, wählen Sie eine Sprache aus, und drücken Sie "by default":
Jede neue Folie wird systematisch anzuwenden Ihr die Standard-Sprache auf jede neue Box.
Allerdings bedeutet dies nicht das Problem einer bestehenden Präsentation, die Sie übersetzen möchten. Beginnend in englischer Sprache auf einer Rutsche Französisch zu schreiben, wird die Auto-Korrektor unterstreichen Ihre Rechtschreibung, vielleicht sogar kauen es insgesamt, wenn Sie aktiv sind "während der Eingabe zu korrigieren". Wenn Sie Glück haben, funktioniert die Sprache Auswahlschaltfläche. Aber auch eine einfache Mischung aus Französisch-fr und Französisch-chmakes es unmöglich, es zu benutzen.
Dann, wie Sie bestimmen die Sprache einer ganzen Rutsche? Oder sogar (woaw) die Sprache einer ganzen Präsentation?
Nun, das ist der einzige Weg, dies zu umgehen, gehen Sie ein Makro ich aus bekommen habe (!) Chocotooth Blog :
Sub SetLangUS () Dim scount, j, k, FCOUNT scount = ActivePresentation.Slides.Count scount Für j = 1 bis scount FCOUNT = ActivePresentation.Slides (j). Shapes.Count fcount 'change all shapes: Für k = 1 bis FCOUNT "Veränderung in allen Formen: Wenn ActivePresentation.Slides (j). Formen (k). Dann HasTextFrame ActivePresentation.Slides (j). Formen (k). TextFrame _ . TextRange.LanguageID = msoLanguageIDEnglishUS End If Weiter k FCOUNT = ActivePresentation.Slides (j). NotesPage.Shapes.Count fcount 'change all shapes: Für k = 1 bis FCOUNT "Veränderung in allen Formen: Wenn ActivePresentation.Slides (j). NotesPage.Shapes (k). HasTextFrame Dann ActivePresentation.Slides (j). NotesPage.Shapes (k). TextFrame _ . TextRange.LanguageID = msoLanguageIDEnglishUS End If Weiter k Next j End Sub
Was sollten Sie damit anfangen? Klicken Sie auf die Visual Basic-Taste auf der 'Entwickler' Reiter:
Legen Sie ein neues Modul mit der rechten Maustaste auf "VBAProject 'im linken Navigationsbereich:
Dies öffnet ein neues Fenster. Fügen Sie den Code hinein. Und führen Sie es mit der "Start"-Taste:
Sehen Sie? Alle Textfelder haben auf Englisch / USA eingestellt wurde. Sie können diesen Code für den späteren Gebrauch gespeichert in einer Datei mit. Bas-Erweiterung.
PS: Sehr geehrter Microsoft, wenn Sie könnten eine Lösung weniger langweilig, als dies durch einfaches Integration der Sprach-Switching-Funktion in PowerPoint, vielen Dank im Voraus anbieten.
