' -------------------------------------------------------------------------------- ' Pone todos los textos con la fuente que le digamos en la variable fuente. ' -------------------------------------------------------------------------------- Sub FuentesIguales() Dim ColCount As Integer Dim RowCount As Integer Dim sh As Integer Dim filas, columnas As Integer Dim idioma As String ' cambiar la variable fuente a la tipografía que queramos fuente = "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 ActivePresentation.Slides(j).Shapes(k).TextFrame.TextRange.Font.Name = fuente 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.Name = fuente Next Next Next End If Next k Next j End Sub