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