Cambiare la lingua del controllo ortografico in una presentazione PowerPoint

So che una risposta è già stata accettata (a cui ho dato +1 poiché funziona ed è ben scritta), ma per alcune persone l'idea di creare, salvare, usare una macro può essere troppo spaventosa (o possono avere impostazioni di sicurezza in atto che rendono questo difficile da realizzare). Quindi una soluzione più semplice è quella di utilizzare la normale funzionalità integrata per fare questo. Il trucco è quello di essere in grado di selezionare tutti gli oggetti su tutte le diapositive in una sola volta, piuttosto che le diapositive stesse, e questo si ottiene facilmente nella vista Outline (purtroppo una caratteristica sottoutilizzata, ma ottima per riorganizzare un mazzo di diapositive, promuovendo e retrocedendo interi pezzi, ad esempio proiettili >> nuove diapositive o viceversa).

Non ho PowerPoint 2002 (“XP”) quindi non sono sicuro se è necessario seguire le istruzioni per il 2000 o per il 2003, quindi le copro entrambe qui:

• In PP 2000: Vai alla vista contorno, che è la seconda icona da sinistra in basso a sinistra dello schermo (assomiglia a linee con rientranze).
• In PP 2003 e successivi: Vai alla vista “normale” (layout a tre riquadri) e in cima al navigatore di diapositive scegli “outline” piuttosto che “slides”

Nelle vecchie versioni, assicurati di avere la barra degli strumenti Outlining visibile (View > Toolbars > Outlining) e clicca sul pulsante Expand all (le versioni successive ti permettono di arrivarci con il click destro).

• Ctrl-A per selezionare tutto.
• Strumenti > Lingua > Scegli la lingua da impostare.
• (da Powerpoint 2013) Rivedi > Lingua > Imposta lingua di correzione

Lavoro fatto.

Allo stesso modo, mentre hai tutto selezionato puoi cambiare altre cose come i caratteri, i colori ecc. Anche se naturalmente in molti casi questo viene fatto meglio cambiando il master delle diapositive, una presentazione che ha avuto molti editori può avere un sacco di formattazione “dura” impostata che si discosta dal master sottostante e deve essere reimpostata per essere coerente. Puoi anche resettare le diapositive individuali allo stile master, ma questo può comportare lo spostamento dei segnaposto, il che può essere indesiderabile in alcune situazioni.

Questo thread contiene la risposta che ha funzionato per me.

I passi che ho seguito sono stati:

1. Creare una nuova macro:
   1.1. Vai su Strumenti, Macro, Editor di Visual Basic.
   1.2. Inserisci un nuovo modulo vuoto selezionando Inserisci, Modulo.

2. Incolla questo codice nel pannello di destra e salva la macro:

3. Esegui la macro (premendo F5 all'interno dell'editor, o selezionando Strumenti, Macro, Macro, ChangeSpellCheckingLanguage e cliccando su Esegui).

Dopo di che tutti gli elementi di testo all'interno della presentazione avranno la nuova lingua di ortografia.

Dopo molte presentazioni in cui l'ho fatto a mano o ho usato una macro una tantum, finalmente mi sono rotto e l'ho trasformato in un vero e proprio Add-In per PowerPoint.

L'ho caricato sul mio sito web: PowerPoint LanguageFixer

Si occupa di:

• impostare la lingua di default
• tutte le forme con cornici di testo
• le cornici di testo nelle forme raggruppate (per quanto possibile)
• il testo nelle tabelle
• la roba sulla diapositiva/note/manuale master

Basta impostare una delle caselle di testo nella lingua che vuoi, selezionarla e cliccare il pulsante.

Ecco due opzioni a seconda della vostra situazione:

Situazione 1: La copia originale di Office è stata installata da un supporto di installazione in lingua francese canadese.

Sarai in grado di impostare la lingua predefinita in inglese, ma le funzioni principali useranno la lingua nativa del supporto di installazione.

L'unica soluzione è disinstallare la versione francese canadese e installare da un supporto di installazione basato sulla lingua inglese o copiare/incollare l'intera presentazione in un nuovo documento e riformattare.

.

Situazione 2: Tutto sembra essere inglese, ma in circostanze limitate appaiono lingue straniere.

In questa situazione, ecco le istruzioni di riparazione per Office 2002:

1. Clicca sul menu Start
2. Punta su Programmi
3. Punta su Microsoft Office Tools
4. 5. Clicca su Microsoft Office XP Language Settings.
   
5. 5. Fai clic sulla scheda Lingue abilitate.
   
6. Vai alla casella Versione predefinita di Microsoft Office
7. Seleziona la lingua che vuoi
8. 8. Fate clic su OK. Apparirà un messaggio che ti dirà quali modifiche verranno apportate.
   
9. Fai clic su Continua

Spero che questo ti aiuti.

Il codice postato da Leonardo ](https://superuser.com/a/61306/245595) è semplice e generalmente efficace, ma non riguarda gli Shape nei gruppi. Un codice più generico usa la ricorsione per affrontare anche questo caso (leggermente modificato da qui , che è nello stesso thread del codice di 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

Ho avuto gli stessi problemi con presentazioni fatte con PowerPoint tedesco e tradotte manualmente in inglese. Il problema è che l'impostazione della lingua è essenzialmente una formattazione che viene applicata ad ogni elemento della casella di testo per conto suo.

Non sono a conoscenza di alcuna soluzione conveniente – ho dovuto convivere con la mancata corrispondenza o cambiare manualmente il “formato” della lingua di ogni singola casella di testo in ogni diapositiva. Non è divertente, quindi per lo più ci convivo.