Direkt zum Hauptbereich

Spracheinstellungen bei PowerPoint in allen Elementen auf allen Folien ändern - eine Anleitung

Hier kommt ein Tipp aus dem Bereich Microsoft Office. Wenn Sie öfter Präsentationen in verschiedenen Sprachen erstellen, z. B. heute eine in deutscher Sprache und morgen eine in englischer Sprache, kennen Sie sicher dieses Problem: Sie schreiben einen englischen Text und fügen verschiedene Formen mit Text hinzu. Nun ist jeder Text rot unterstrichen, weil es kein deutsches Wort ist. Nun müssen Sie jedes einzelne Wort markieren und ihm die englische Spracheinstellung zuweisen. Bei 10 Folien mit 3-10 Elementen müssen Sie das also 30-100mal tun. Mit dem folgenden Makro und der folgenden Anleitung geht es deutlich schneller.

Bei Word ist es einfach, die Sprache des Textes zu ändern. Sie markieren den ganzen Text und klicken in der Statuszeile unten in Word auf die aktuell eingestellte Sprache. Es öffnet sich ein Dialog, in dem Sie die neue Sprache auswählen (siehe Abb. 1.).

Abb. 1: Die Spracheinstellungen für den Text in Microsoft Word ändern
So einfach geht das bei PowerPoint nicht. Dort müssen Sie jedes Element einzeln auswählen und bearbeiten. Das ist ziemlich mühsam.

Wenn Sie im Netz nach Lösungen zu diesem Problem suchen, stoßen Sie auf zwei Makros von Duncan Jones auf der Webseite Superuser.com (/1/). Das erste Makro stellt die Sprache ein und ruft das zweite solange auf, bis alle Elemente auf allen Folien geändert wurden.

Für die englische Sprache müssen Sie die Language ID "msoLanguageIDEnglishUK" verwenden, für die deutsche Sprache "msoLanguageIDGerman". Eine Liste der Sprachen gibt es bei Microsoft (/2/).

Aber wir haben das Problem noch nicht gelöst:
  • PowerPoint kann Makros nur speichern, wenn die Präsentation mit der Erweiterung pptm gespeichert wird.
  • Theoretisch müssen Sie die Makros in jeder Präsentation speichern, in der Sie die Sprache ändern wollen.
  • Wenn Sie eine einmal die Sprache auf Englisch eingestellt haben und danach eine Präsentation in deutscher Sprache erstellen wollen, müssen Sie erst alles auf Deutsch umstellen.
Ich habe für mich folgende Lösung gefunden.
  • Ich lege eine leere PowerPoint-Datei mit der Erweiterung pptm (PowerPoint-Präsentation mit Makros (*.pptm)) an, z. B. Change_Languages.pptm. (siehe Abb. 2)
  • In dieser Datei speichere ich meine drei Makros (Quelltext siehe unten) ab.

Abb. 2: Datei mit Erweiterung pptm speichern
Wenn ich nun in einer Präsentation die Sprache ändern will, öffne ich gleichzeitig die Datei Change_Languages.pptm. In der ersten Präsentation kann ich die Makros über die Funktion "Ansicht > Makros" auswählen. Da in der ersten Präsentation keine Makros enthalten sind, wähle ich unten die Change_Languages.pptm aus (siehe Abb. 3).
Abb. 3: Makros aus einer anderen Präsentation auswählen
Wenn Sie wollen, dass die Texte auf alle Folien gemäß deutscher Rechtschreibung geprüft werden, rufen Sie das Makro "ChangeProofingLanguageToGerman" auf. Wenn Sie das für die englische Rechtschreibung haben wollen, starten Sie das Makro "ChangeProofingLanguageToEnglish". Wenn Sie eine andere Sprache wollen, kopieren Sie das Makro, benennen es um und fügen die entsprechende Konstante für die andere Sprache ein.

Die folgende Abbildung 4 zeigt einen Auschnitt aus einer Folie vor und nach dem Aufrufen des Makros.
Abb. 4: vor und nach dem Makroaufruf von ChangeProofingLanguageToEnglish
Vorher war die deutsche Sprache eingestellt. Alle englischen Texten wurden daher rot markiert. Nach dem Makroaufruf erkennt PowerPoint alle Texte als englischsprachige Texte.

Anmerkungen

Quellen der VBA-Makros

Dank an User Duncan, siehe https://superuser.com/questions/432366/how-do-i-change-the-language-of-all-powerpoint-slides-at-once/


Sub ChangeProofingLanguageToEnglish()
    Dim j, k As Integer
    Dim languageID As MsoLanguageID

    'Set this to your preferred language
    languageID = msoLanguageIDEnglishUK

    For j = 1 To ActivePresentation.Slides.Count
        For k = 1 To ActivePresentation.Slides(j).Shapes.Count
            ChangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), languageID
        Next k
    Next j
End Sub
Sub ChangeProofingLanguageToGerman()
    Dim j, k As Integer
    Dim languageID As MsoLanguageID

    'Set this to your preferred language
    languageID = msoLanguageIDGerman

    For j = 1 To ActivePresentation.Slides.Count
        For k = 1 To ActivePresentation.Slides(j).Shapes.Count
            ChangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), languageID
        Next k
    Next j
End Sub
Sub ChangeAllSubShapes(targetShape As Shape, languageID As MsoLanguageID)
    Dim i As Integer

    If targetShape.HasTextFrame Then
        targetShape.TextFrame.TextRange.languageID = languageID
    End If

    Select Case targetShape.Type
        Case msoGroup, msoSmartArt
            For i = 1 To targetShape.GroupItems.Count
                ChangeAllSubShapes targetShape.GroupItems.Item(i), languageID
            Next i
    End Select
End Sub

Kommentare

  1. das finde ich schon sehr perfektionistisch ;)
    da im präsentationsmodus die "Fremdwörter" ohnehin nicht unterstrichen sind, wäre ich bisher nie daraufgekommen mir die Arbeit anzutun, die Sprache für die Rechtschreibprüfung zu ändern ;)

    AntwortenLöschen
    Antworten
    1. Naja, wenn man die Rechtschreibprüfung doch als sinnvoll erachtet und nicht darauf verzichten will, muss man halt nach Perfektion streben :-)

      Löschen
  2. Hallo lieber Herr Fischbach,
    haben Sie herzlichen Dank. Das war sehr hilfreich!

    AntwortenLöschen

Kommentar veröffentlichen

Beliebte Posts aus diesem Blog

Microsoft Teams: Die neuen Besprechungsnotizen - Loop-Komponenten

  Haben Sie in letzter Zeit in einer Teams-Besprechung die Notizen geöffnet? Dort sind inzwischen die Loop-Komponenten hinterlegt. Die sind zwar etwas nützlicher als das, was zuvor zur Verfügung stand. Trotzdem ist noch Luft nach oben. Und es gibt sogar einige ernstzunehmende Stolperfallen. Hier ein erster, kritischer Blick auf das was Sie damit tun können. Und auch darauf, was Sie besser sein lassen.

Selbstbewertungsfragen für den Alltag in Arbeitsgruppen aus Sicht von Mitarbeitenden

Welche Fragen können wir Mitarbeiter:innen stellen, um herauszufinden, ob agiles Arbeiten wirkt? Es gibt bereits eine Menge an Fragebögen. Aber ich bin nicht immer zufrieden damit.

Wie lassen sich Ergebnisse definieren? - Drei Beispiele (WBS, CBP und BDN)

Ich habe schon darüber geschrieben, warum das Definieren von Ergebnissen so wichtig ist. Es lenkt die Aufmerksamkeit des Projektteams auf die eigentlichen Ziele. Aber was sind eigentlich Projektergebnisse? In diesem Beitrag stelle ich drei Methoden vor, um leichter an Ergebnisse zu kommen.

Agile Sternbilder: Die Entdeckung kosmischer Agilitäts-Superkräfte

Hast du dich je gefragt, ob dein Sternzeichen deine Fähigkeiten in einer agilen Arbeitsumgebung beeinflusst? In diesem Blogpost tauchen wir ein in die faszinierende Welt der Astrologie und ihre mögliche Verbindung zu modernen Arbeitsweisen. Entdecke, wie die Sterne deine agilen Stärken prägen könnten. Ob überzeugter Agilist oder neugieriger Sternzeichenliebhaber – dieser Artikel kann dir neue Perspektiven eröffnen und vielleicht sogar dein nächstes Teamprojekt inspirieren!

Microsoft Lists: mit Forms und Power Apps komfortabel mobil arbeiten

In meinem Kundenkreis sind viele Menschen, die den Arbeitsalltag nicht vorwiegend auf dem Bürostuhl sitzend verbringen, sondern "draußen" unterwegs sind. Vielleicht in Werkstätten oder im Facility-Management. Es ist so wichtig, dass die Schnittstellen zu den Abläufen im Büro gut abgestimmt sind. Microsoft 365 hat so einiges im Baukasten, man muss es nur finden und nutzen.  In diesem Artikel spiele ich ein Szenario durch, das auf Microsoft Lists, Forms und - für die Ambitionierteren - Power Apps setzt.

Scrum und Hardware: Es kommt auf die Basics an

Man kann Hardwareprodukte agil entwickeln. Zum einen kommt Scrum aus der Hardwareentwicklung. Die Softwerker haben die Hardwarekonzepte auf ihre Situation übertragen. Zum anderen hat Hardwareentwicklung heute ganz viel mit Software zu tun. Gerade in frühen Phasen kann man sich mit Simulationen noch viele Wege offen halten und mehrere Pfade parallel verfolgen. In diesem Beitrag empfehle ich eine Podcastfolge und ein Buch, für alle, die mit der Geschwindigkeit ihrer Hardwareentwicklung nicht zufrieden sind.

Wie Agilität den Kundennutzen steigert - Einige Argumente für Berater:innen

In Zeiten wirtschaftlicher Unsicherheit fragen sich viele, ob agile Beratung noch eine Zukunft hat. Die Antwort liegt in der konsequenten Orientierung am Kundennutzen. Qualität setzt sich durch, wenn sie messbare Verbesserungen bei Umsatz, Kosten und Leistungsfähigkeit bewirkt, anstatt sich in Methoden und zirkulären Fragen zu verlieren. Dieser Artikel zeigt, wie agile Beratung nachhaltige Veränderungen in Unternehmen schafft und warum gerade jetzt gute Berater:innen gebraucht werden, um Organisationen widerstandsfähiger zu machen.

Warum eine Agile Transformation keine Reise ist

Die agile Transformation wird oft als eine Reise beschrieben. Doch dieser Vergleich kann viele Unternehmen in die Irre führen oder Bilder von unpassenden Vergleichen erzeugen. Transformationen sind keine linearen Prozesse mit einem klaren Ziel, sondern komplexe und dynamische Entwicklungen. Dieser Artikel zeigt, warum Agilität kein Weg mit einem festen Endpunkt ist.

Warum bringen Warum-Fragen so wenig?

Frust! Wieder gibt's am Ende des Meetings keine Lösungen, sondern nur Diskussionen darüber, wer was warum verbockt hat. Wieder geht nichts voran. Warum passiert uns das immer wieder? (Ha! Da ist sie wieder, die Warum-Frage.)