' --------------------------------------------------------------------------------
' Pone todos los placeholders con el idioma que se le indique en la variable idioma
' --------------------------------------------------------------------------------
Sub LangInFrames()

    Dim ColCount As Integer
    Dim RowCount As Integer
    Dim sh As Integer
    Dim filas, columnas As Integer
    Dim idioma As String
    
   ' elegir un idioma descomentando el que se quiera 

   ' español
   ' idioma = msoLanguageIDSpanish
   
   ' inglés
   ' idioma = msoLanguageIDEnglishUK 

   ' francés
   ' idioma = msoLanguageIDFrench

   ' más idiomas en https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.core.msolanguageid?redirectedfrom=MSDN&view=office-pia 
	
	
	
	
	
	' no tocar nada más

    ' idioma por defecto
    ActivePresentation.DefaultLanguageID = idioma
    
    
    scount = ActivePresentation.Slides.Count
    
    For j = 1 To scount
        fcount = ActivePresentation.Slides(j).Shapes.Count
        
        For k = 1 To fcount
    
            ' cajas de texto
            If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then
                ActivePresentation.Slides(j).Shapes(k).TextFrame.TextRange.LanguageID = idioma
            End If
    
            ' tablas
               If ActivePresentation.Slides(j).Shapes(k).HasTable = True Then
                    For sh = 1 To fcount
                    
                            ColCount = ActivePresentation.Slides(j).Shapes(k).Table.Columns.Count
                            RowCount = ActivePresentation.Slides(j).Shapes(k).Table.Rows.Count
                            
                            For columnas = 1 To ColCount
                             For filas = 1 To RowCount
                                ActivePresentation.Slides(j).Shapes(k).Table.Cell(filas, columnas).Shape.TextFrame.TextRange.LanguageID = idioma
                             Next
                            Next
                      Next
                End If
    
        Next k
    Next j
        
End Sub