Cambia el idioma de los elementos de una presentación PowerPoint a Español

spanish.bas

Sub Español()
    ChangeProofingLanguageToSpanish
End Sub

Sub ChangeProofingLanguageToSpanish()
    Dim j, k As Integer
    Dim languageID As MsoLanguageID

  ' Selecciona tu lenguaje preferido y ponlo debajo. La lista
  ' completa está en https://msdn.microsoft.com/en-us/library/aa432635.aspx
    languageID = msoLanguageIDSpanishChile

    For j = 1 To ActivePresentation.Slides.Count
        For k = 1 To ActivePresentation.Slides(j).Shapes.Count
            ChangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), languageID
        Next k
    Next j
End Sub

Sub ChangeAllSubShapes(targetShape As Shape, languageID As MsoLanguageID)
    Dim i As Integer, r As Integer, c As Integer

    If targetShape.HasTextFrame Then
        targetShape.TextFrame.TextRange.languageID = languageID
    End If

    If targetShape.HasTable Then
        For r = 1 To targetShape.Table.Rows.Count
            For c = 1 To targetShape.Table.Columns.Count
                targetShape.Table.Cell(r, c).Shape.TextFrame.TextRange.languageID = languageID
            Next
        Next
    End If

    Select Case targetShape.Type
        Case msoGroup, msoSmartArt
            For i = 1 To targetShape.GroupItems.Count
                ChangeAllSubShapes targetShape.GroupItems.Item(i), languageID
            Next i
    End Select
End Sub