Verander de spellingcontrole taal op een PowerPoint-presentatie

Ik weet dat er al een antwoord is geaccepteerd (waar ik +1 aan heb gegeven omdat het werkt en goed geschreven is), maar voor sommige mensen kan het idee om een macro te maken, op te slaan, te gebruiken te eng zijn (of ze kunnen beveiligingsinstellingen hebben waardoor dit moeilijk te bereiken is). Dus een eenvoudigere oplossing is om de normale ingebouwde functionaliteit te gebruiken om dit te doen. De truc is om alle objecten op alle dia’s tegelijk te kunnen selecteren, in plaats van de dia’s zelf, en dit is gemakkelijk te bereiken in de Outline view (helaas een weinig gebruikte functie, maar geweldig voor het reorganiseren van een diadeck, het promoten en degraderen van hele stukken, bijvoorbeeld bullets > nieuwe dia’s of vice versa).

Ik heb geen PowerPoint 2002 (“XP”) dus ik weet niet zeker of je de instructies voor 2000 of voor 2003 moet volgen, dus ik behandel ze hier allebei:

• In PP 2000: Ga naar de outline view, dat is het tweede icoontje van links links onderaan het scherm (ziet eruit als lijnen met inspringingen).
• In PP 2003 en verder: Ga naar de “normale” weergave (lay-out met drie deelvensters) en kies bovenaan in de dianavigator “outline” in plaats van “slides”

In oudere versies moet je ervoor zorgen dat je de werkbalk Outlining zichtbaar hebt (View > Toolbars > Outlining) en klik op de knop Expand all (in latere versies kun je dit doen door met de rechtermuisknop te klikken).

• Ctrl-A om alles te selecteren.
• Gereedschap > Taal > Kies je taal om in te stellen.
• (vanaf Powerpoint 2013) REVIEW > Taal > Taal voor proeflezen instellen

Klus geklaard.

Terwijl je alles geselecteerd hebt, kun je ook andere dingen veranderen, zoals lettertypes, kleuren enz. Hoewel dit natuurlijk in veel gevallen beter gedaan kan worden door de dia master te veranderen, een presentatie die veel bewerkingen heeft gehad kan veel ‘harde’ opmaak hebben die afwijkt van de onderliggende master en die opnieuw ingesteld moet worden om consistent te zijn. Je kunt ook individuele dia’s terugzetten naar de master stijl, maar dit kan er toe leiden dat plaatshouders ook verschuiven, wat in sommige situaties ongewenst kan zijn.

Deze draad ](http://www.proz.com/forum/office_applications/34774-set_language_in_entire_ppt_presentation.html) bevat het antwoord dat voor mij werkte.

De stappen die ik volgde waren:

1. Maak een nieuwe macro:
   1.1. Ga naar Extra, Macro, Visual Basic Editor.
   1.2. Voeg een nieuwe lege module in door Invoegen, Module te kiezen.

2. Plak deze code in het rechterpaneel en sla de macro op:

3. Voer de macro uit (door op F5 te drukken in de editor, of door Extra, Macro, Macro’s, ChangeSpellCheckingLanguage te selecteren en op Uitvoeren te klikken).

Daarna hebben alle tekstelementen in de presentatie de nieuwe spellingtaal.

Na vele presentaties waarbij ik het met de hand deed of een eenmalige macro gebruikte, ben ik er eindelijk mee gestopt en heb ik er een echte PowerPoint Add-In van gemaakt.

Ik heb het geupload naar mijn web site: PowerPoint LanguageFixer

Het zorgt voor:

• het instellen van de standaard taal
• alle vormen met tekstkaders
• tekstkaders in gegroepeerde vormen (voor zover mogelijk)
• tekst in tabellen
• dingen op de dia/note/handout master

Zet gewoon een van de tekstvakken op de taal die je wilt, selecteer het en klik op de knop.

Hier zijn twee opties, afhankelijk van uw situatie:

Situatie 1: Het oorspronkelijke exemplaar van Office is geïnstalleerd vanaf een Canadees Franstalig installatiemedium.

U kunt de standaardtaal op Engels instellen, maar de kernfuncties gebruiken de oorspronkelijke taal van het installatiemedium.

De enige oplossing is om de Canadees-Franse versie te verwijderen en vanaf een Engelstalig installatiemedium te installeren, of de hele presentatie naar een nieuw document te kopiëren en opnieuw te formatteren.

.

• *

Situatie 2: Alles lijkt Engels te zijn, maar in beperkte omstandigheden verschijnen er vreemde talen.

In deze situatie volgen hier de herstelinstructies voor Office 2002:

1. Klik op het menu Start
2. Wijs Programma’s aan
3. Wijs Microsoft Office-hulpprogramma’s aan
4. Klik op Microsoft Office XP Taalinstellingen.
   
5. Klik op het tabblad Ingeschakelde talen.
   
6. Ga naar het vak Standaardversie van Microsoft Office
7. Selecteer de gewenste taal
9. Klik op OK. Er verschijnt een bericht dat aangeeft welke wijzigingen worden aangebracht.
   
10. Klik op Doorgaan

• *

Ik hoop dat dit helpt.

De code gepost door Leonardo ](https://superuser.com/a/61306/245595) is eenvoudig en over het algemeen effectief, maar het zal geen effect hebben op Shapes in groepen. Een meer generische code gebruikt recursie om ook dat geval aan te pakken (lichtjes gewijzigd van hier , die in dezelfde thread staat als de code van Leonardo):

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

Ik heb dezelfde problemen gehad met presentaties die met het Duitse PowerPoint zijn gemaakt en handmatig naar het Engels zijn vertaald. Het probleem is dat de taalinstelling in wezen een opmaak is die op elk tekstvakelement afzonderlijk wordt toegepast.

Ik ken geen handige oplossing – ik heb ofwel moeten leven met de mismatch of handmatig de taal “opmaak” van elk individueel tekstvak op elke dia moeten veranderen. Niet leuk, dus meestal leef ik ermee.