Classe Font (PowerPoint VBA)

A classe Font representa formatação de caractere de texto ou um marcador. O objeto Font é um membro das fontes coleção. Coleção Fonts contém todas as fontes usadas em uma apresentação.

Set

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

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Font: BulletFormat.Font, Fonts.Item, TextRange.Font, TextStyleLevel.Font e Presentation.Fonts

Métodos

Estes são os principais métodos da classe

Fonts.Replace - Substitui uma fonte na coleção fonts .

Dim strOriginal As String: strOriginal = 
Dim strReplacement As String: strReplacement = 
ActivePresentation.Fonts.Replace Original:=strOriginal, Replacement:=strReplacement

Propriedades

AutoRotateNumbers Retorna ou define a compressão lateral. Leitura/gravação.

ActivePresentation.Fonts(1).AutoRotateNumbers = msoTrue

BaselineOffset Retorna ou define o deslocamento da linha de base para os caracteres sobrescritos ou subscritos especificados. Leitura/gravação.

ActivePresentation.Fonts(1).BaselineOffset = -0.2

Bold Determina se o formato de caractere é negrito. Leitura/gravação.

ActivePresentation.Fonts(1).Bold = msoTrue

Color Retorna ou define a cor do objeto Font atual. Leitura/gravação.

Dim cftColor As ColorFormat
Set cftColor = ActivePresentation.Fonts(1).Color

Embeddable Determina se a fonte especificada pode ser incorporada à apresentação. Somente leitura.

Dim mtsEmbeddable As Office.MsoTriState
mtsEmbeddable = ActivePresentation.Fonts(1).Embeddable

Embedded Determina se a fonte especificada está incorporada à apresentação. Somente leitura.

Dim mtsEmbedded As Office.MsoTriState
mtsEmbedded = ActivePresentation.Fonts(1).Embedded

Emboss Determina se o formato de caractere está em alto-relevo. Leitura/gravação.

ActivePresentation.Fonts(1).Emboss = msoTrue

Italic True se a fonte ou o intervalo está formatado como itálico. Long de leitura/gravação.

ActivePresentation.Fonts(1).Italic = msoTrue

Name Retorna ou define o nome do objeto especificado. Leitura/gravação.

ActivePresentation.Fonts(1).Name =

NameAscii Retorna ou define a fonte usada para caracteres ASCII caracteres com números no conjunto de caracteres dentro do intervalo de 0 a 127. Leitura/gravação.

ActivePresentation.Fonts(1).NameAscii = "Century"

NameComplexScript Retorna ou define o nome da fonte de script complexo. Usada em texto de idiomas mistos. Leitura/gravação.

ActivePresentation.Fonts(1).NameComplexScript = "Times New Roman"

NameFarEast Retorna ou define o nome da fonte asiática. Leitura/gravação.

Dim strNameFarEast As String
ActivePresentation.Fonts(1).NameFarEast

NameOther Retorna ou define a fonte usada para caracteres cujos números no conjunto de caracteres são maiores que 127. Leitura/gravação.

ActivePresentation.Fonts(1).NameOther = "Tahoma"

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActivePresentation.Fonts(1).Parent

Shadow Determina se o texto especificado tem uma sombra. Leitura/gravação.

ActivePresentation.Fonts(1).Shadow = msoTrue

Size Retorna ou define o tamanho do caractere, em pontos. Leitura/gravação.

ActivePresentation.Fonts(1).Size = 24

Subscript Determina se o texto especificado é subscrito. Leitura/gravação.

ActivePresentation.Fonts(1).Subscript = msoTrue

Superscript Determina se o texto especificado é sobrescrito. Leitura/gravação.

ActivePresentation.Fonts(1).Superscript = msoTrue

Underline Determina se o texto especificado para o objeto Font ou o estilo de fonte (para o objeto FontInfo ) é sublinhado. Leitura/gravação.

ActivePresentation.Fonts(1).Underline = msoTrue

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

Dim lngCount As Long
lngCount = ActivePresentation.Fonts.Count

Fonts.Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActivePresentation.Fonts.Parent