Macro to change language for all boxes in a presentation

[djecris]

Try this

Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
Next osld
End Sub

Thank you John but it doesn't work: i've put in color the text that powerpoint told me there is a problem with (see above)