Ändern der Sprache für die Rechtschreibprüfung in einer PowerPoint-Präsentation

Ich weiß, dass eine Antwort bereits akzeptiert wurde (der ich +1 gegeben habe, da sie funktioniert und gut geschrieben ist), aber für einige Leute ist die Idee, ein Makro zu erstellen, zu speichern und zu verwenden, vielleicht zu beängstigend (oder sie haben Sicherheitseinstellungen, die dies schwer möglich machen). Eine einfachere Lösung ist also, die normale eingebaute Funktionalität zu verwenden. Der Trick besteht darin, alle Objekte auf allen Folien auf einmal auszuwählen und nicht nur die Folien selbst, und das ist in der Gliederungsansicht leicht zu erreichen (leider eine zu wenig genutzte Funktion, aber großartig, um ein Foliendeck neu zu organisieren, ganze Abschnitte vor- und zurückzusetzen, z. B. Aufzählungszeichen > neue Folien oder umgekehrt).

Da ich PowerPoint 2002 (“XP”) nicht habe, bin ich mir nicht sicher, ob Sie die Anweisungen für 2000 oder für 2003 befolgen müssen, daher decke ich hier beide ab:

• In PP 2000: Gehen Sie in die Gliederungsansicht, das ist das zweite Symbol von links unten auf dem Bildschirm (sieht aus wie Linien mit Einrückungen).
• In PP 2003 und später: Wechseln Sie in die “normale” Ansicht (Layout mit drei Bereichen) und wählen Sie oben im Foliennavigator “Gliederung” statt “Folien”

In älteren Versionen stellen Sie sicher, dass die Gliederungs-Symbolleiste sichtbar ist (Ansicht > Symbolleisten > Gliederung), und klicken Sie auf die Schaltfläche “Alles erweitern” (in späteren Versionen können Sie dies durch Rechtsklick erreichen).

• Strg-A, um alles auszuwählen.
• Werkzeuge > Sprache > Wählen Sie die gewünschte Sprache.
• (ab Powerpoint 2013) REVIEW > Sprache > Proofing-Sprache einstellen

Job erledigt.

Solange Sie alles ausgewählt haben, können Sie auch andere Dinge wie Schriftarten, Farben usw. ändern. Obwohl dies natürlich in vielen Fällen besser ist, indem man den Folienmaster ändert, kann eine Präsentation, die viele Bearbeiter hatte, viele “harte” Formatierungen haben, die vom zugrunde liegenden Master abweichen und zurückgesetzt werden müssen, um konsistent zu sein. Sie können auch einzelne Folien auf den Masterstil zurücksetzen, aber das kann dazu führen, dass sich auch Platzhalter verschieben, was in manchen Situationen unerwünscht sein kann.

Dieser Thread enthält die Antwort, die bei mir funktioniert hat.

Die Schritte, die ich befolgt habe, waren:

1. Erstellen Sie ein neues Makro:
   1.1. Gehen Sie zu Werkzeuge, Makro, Visual Basic Editor.
   1.2. Fügen Sie ein neues leeres Modul ein, indem Sie Einfügen, Modul wählen.

2. Fügen Sie diesen Code im rechten Feld ein und speichern Sie das Makro:

3. Führen Sie das Makro aus (durch Drücken von F5 im Editor oder durch Auswahl von Extras, Makro, Makros, ChangeSpellCheckingLanguage und Klicken auf Ausführen).

Danach haben alle Textelemente innerhalb der Präsentation die neue Rechtschreibsprache.

Nach vielen Präsentationen, bei denen ich es von Hand gemacht oder ein einmaliges Makro verwendet habe, habe ich es endlich gebrochen und ein richtiges PowerPoint Add-In daraus gemacht.

Ich habe es auf meine Website hochgeladen: PowerPoint LanguageFixer

Es kümmert sich um:

• Einstellen der Standardsprache
• alle Shapes mit Textrahmen
• Textrahmen in gruppierten Shapes (soweit möglich)
• Text in Tabellen
• Sachen auf der Folie/Notiz/Handout-Master

Setzen Sie einfach eines der Textfelder auf die gewünschte Sprache, wählen Sie es aus und klicken Sie auf die Schaltfläche.

Hier sind zwei Möglichkeiten, die von Ihrer Situation abhängen:

Situation 1: Die ursprüngliche Kopie von Office wurde von einem Installationsmedium mit kanadisch-französischer Sprache installiert.

Sie können die Standardsprache auf Englisch einstellen, aber die Kernfunktionen verwenden die Sprache des Installationsmediums.

Die einzige Lösung besteht darin, die kanadisch-französische Version zu deinstallieren und von einem englischsprachigen Installationsmedium zu installieren oder die gesamte Präsentation in ein neues Dokument zu kopieren/einzufügen und neu zu formatieren.

.

Situation 2: Alles scheint englisch zu sein, aber unter bestimmten Umständen erscheinen Fremdsprachen.

In dieser Situation finden Sie hier eine Reparaturanleitung für Office 2002:

1. Klicken Sie auf das Startmenü
2. Zeigen Sie auf Programme
3. Zeigen Sie auf Microsoft Office Tools
4. Klicken Sie auf Microsoft Office XP Spracheinstellungen.
   
5. Klicken Sie auf die Registerkarte Aktivierte Sprachen.
   
6. Gehen Sie auf das Feld Standardversion von Microsoft Office
7. Wählen Sie die gewünschte Sprache aus
8. Klicken Sie auf OK. Es wird eine Meldung angezeigt, die Ihnen mitteilt, welche Änderungen vorgenommen werden.
   
9. Klicken Sie auf Weiter

Ich hoffe, dies hilft Ihnen.

Der von Leonardo gepostete Code hier ist einfach und im Allgemeinen effektiv, aber er wirkt nicht auf Shapes in Gruppen. Ein allgemeinerer Code verwendet Rekursion, um auch diesen Fall zu behandeln (leicht verändert von hier , der sich im selben Thread wie der Code von Leonardo befindet):

Private Function ChangeLangOfAllText_caller()
    'ChangeLangOfAllText (msoLanguageIDEnglishUS)
    ChangeLangOfAllText (msoLanguageIDSpanishArgentina)
End Function

Private Function ChangeLangOfAllText(ByVal LangID As Long)
    Dim MySlide As Slide
    Dim MyShape As Shape
    Dim MyD As Design
    Dim MyHeaderFooter As HeaderFooter
    Dim i, nbs As Integer
    ''''' First deal with the master slides
    For Each MyD In ActivePresentation.Designs
        For Each MyShape In MyD.SlideMaster.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MyD
    ''''' Now deal with the slides
    ' Enable this for debugging
    'Debug.Print "File " & ActivePresentation.Name & _
      ": working with " & ActivePresentation.Slides.Count & " slides"
    For Each MySlide In ActivePresentation.Slides
        ' Enable this for debugging
        'Debug.Print " Slide index " & MySlide.SlideIndex & ", Slide number " & MySlide.SlideNumber & _
          ": working with " & MySlide.Shapes.Count & " shapes"
        For Each MyShape In MySlide.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the Notes
        For Each MyShape In MySlide.NotesPage.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the master ' doesn't appear to work, have to try something else
        For Each MyShape In MySlide.Master.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MySlide
End Function

Private Function ProcessShapes(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If ((MyShape.Type = msoGroup) Or (MyShape.Type = msoTable)) Then
        On Error Resume Next
        For i = 1 To MyShape.GroupItems.Count
            ''' The trick is to recurse!
            ProcessShapes MyShape.GroupItems.Item(i), LangID
        Next i
    Else
        ChangeLang MyShape, LangID
    End If
End Function

Private Function ChangeLang(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If (MyShape.HasTextFrame) Then
        ' Enable this for debugging
        'Debug.Print " Shape " & MyShape.ZOrderPosition & ", type: " & MyShape.Type & _
          ", has text frame: " & MyShape.HasTextFrame & ", has text: " & MyShape.TextFrame.HasText & _
          ", alt. text: " & MyShape.AlternativeText
        MyShape.TextFrame.TextRange.LanguageID = LangID
    End If
End Function

Ich hatte die gleichen Probleme mit Präsentationen, die mit deutschem PowerPoint erstellt und manuell ins Englische übersetzt wurden. Das Problem ist, dass die Spracheinstellung im Wesentlichen eine Formatierung ist, die auf jedes Textrahmenelement einzeln angewendet wird.

Mir ist keine bequeme Lösung bekannt - ich musste entweder mit der Nichtübereinstimmung leben oder das Sprach-“Format” jedes einzelnen Textfeldes auf jeder Folie manuell ändern. Das macht keinen Spaß, also lebe ich meistens damit.