Classe Fonts (PowerPoint VBA)

Uma coleção de todos os objetos Font da apresentação especificada.

Para usar uma variável de classe Fonts, ela primeiro precisa ser instanciada por exemplo

Dim fnts as Fonts
Set fnts = ActivePresentation.Fonts

As variáveis ​​de classe Fonts podem ser definidas usando o procedimento Presentation.Fonts.

Count

Retorna o número de objetos na coleção especificada. Somente leitura.

Dim lngCount As Long
lngCount = ActivePresentation.Fonts.Count

Item

Retorna um único objeto Font da coleção fonts especificada.

Item (Index)

Index: O nome ou número de índice do único objeto Font da coleção a ser retornado.

Dim fnt As Font
Set fnt = ActivePresentation.Fonts(Index:=1)

Replace

Substitui uma fonte na coleção fonts .

Replace (Original, Replacement)

Application.ActivePresentation.Fonts _
    .Replace Original:="Times New Roman", Replacement:="Courier"

Arguments

O seguinte argumento é opcional

Original (String) - O nome da fonte a substituir.

Replacement (String) - O nome da fonte de substituição.