Sub Reemplazar_Fuentes() Dim ColCount As Integer Dim RowCount As Integer Dim sh As Integer Dim filas, columnas As Integer Dim fuente_vieja As String Dim fuente_nueva As String ' cambiar las variable fuente_vieja y fuente_nueva a las tipografías que queramos fuente_vieja = "Arial" fuente_nueva = "Helvetica" ' para todas las slides 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 If ActivePresentation.Slides(j).Shapes(k).TextFrame.TextRange.Font.Name = fuente_vieja Then ActivePresentation.Slides(j).Shapes(k).TextFrame.TextRange.Font.Name = fuente_nueva End If 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 If ActivePresentation.Slides(j).Shapes(k).Table.Cell(filas, columnas).Shape.TextFrame.TextRange.Font.Name = fuente_vieja Then ActivePresentation.Slides(j).Shapes(k).Table.Cell(filas, columnas).Shape.TextFrame.TextRange.Font.Name = fuente_nueva End If Next Next Next End If Next k Next j End Sub