' -------------------------------------------------------------------------------- ' Pone todos los textos con el color de la variable colorfuente ' -------------------------------------------------------------------------------- Sub ColorFontizer() Dim ColCount As Integer Dim RowCount As Integer Dim sh As Integer Dim filas, columnas As Integer Dim idioma As String ' indica el color que quieras en la siguiente variable. Todos los códigos en https://htmlcolorcodes.com/es/ colorfuente = RGB(0, 0, 0) 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.Font.Color.RGB = colorfuente 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.Font.Color.RGB = colorfuente Next Next Next End If Next k Next j