Macro to change language for all boxes in a presentation

[John Wilson]

Try

Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
Dim L As Long
For Each osld In ActivePresentation.Slides
   For Each oshp In osld.Shapes
      If oshp.Type = msoGroup Then
        For L = 1 To oshp.GroupItems.Count
           If oshp.GroupItems(L).HasTextFrame Then
              oshp.GroupItems(L).TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
           End If
           Next L
        End If
    If oshp.HasTextFrame Then
       oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
    End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
   If oshp.HasTextFrame Then
      oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
   End If
Next oshp
Next osld
 End Sub

[djecris]

Try

Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
Dim L As Long
For Each osld In ActivePresentation.Slides
   For Each oshp In osld.Shapes
      If oshp.Type = msoGroup Then
        For L = 1 To oshp.GroupItems.Count
           If oshp.GroupItems(L).HasTextFrame Then
              oshp.GroupItems(L).TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
           End If
           Next L
        End If
    If oshp.HasTextFrame Then
       oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
    End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
   If oshp.HasTextFrame Then
      oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
   End If
Next oshp
Next osld
 End Sub

It works THANK YOU!