Clase Font (PowerPoint VBA)

La clase Font representa el formato de caracteres de texto o como una viñeta. El objeto Font es un miembro de las fuentes colección. La colección de fuentes contiene todas las fuentes usadas en una presentación.

Set

Para usar una variable de clase Font, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Font : BulletFormat.Font, Fonts.Item, TextRange.Font, TextStyleLevel.Font y Presentation.Fonts

Métodos

Otros Métodos

Fonts.Replace - Reemplaza una fuente en la colección Fonts.

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

Propiedades

AutoRotateNumbers Devuelve o establece la compresión lateral. Lectura y escritura.

ActivePresentation.Fonts(1).AutoRotateNumbers = msoTrue

BaselineOffset Devuelve o establece el desplazamiento de la línea base de los caracteres superíndice o subíndice especificados. Lectura y escritura.

ActivePresentation.Fonts(1).BaselineOffset = -0.2

Bold Determina si el formato de los caracteres es negrita. Lectura y escritura.

ActivePresentation.Fonts(1).Bold = msoTrue

Color Devuelve o establece el color del objeto Font actual. Lectura y escritura.

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

Embeddable Determina si la fuente especificada se puede incrustar en la presentación. Solo lectura.

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

Embedded Determina si la fuente especificada está incrustada en la presentación. Solo lectura.

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

Emboss Determina si el formato de los caracteres está en relieve. Lectura y escritura.

ActivePresentation.Fonts(1).Emboss = msoTrue

Italic True si la fuente o el intervalo tiene formato de cursiva. Long de lectura y escritura.

ActivePresentation.Fonts(1).Italic = msoTrue

Name Devuelve o establece el nombre del objeto especificado. Lectura y escritura.

ActivePresentation.Fonts(1).Name =

NameAscii Devuelve o establece la fuente usada para los caracteres ASCII (caracteres que tengan los números incluidos en el intervalo de 0 a 127 del juego de caracteres). Lectura y escritura.

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

NameComplexScript Devuelve o establece el nombre de la fuente de escritura compleja. Se usa para el texto en más de un idioma. Lectura y escritura.

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

NameFarEast Devuelve o establece el nombre de la fuente asiática. Lectura y escritura.

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

NameOther Devuelve o establece la fuente usada para caracteres cuyos números de juego de caracteres son superiores a 127. Lectura y escritura.

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

Parent Devuelve el objeto primario del objeto especificado.

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

Shadow Determina si el texto especificado está sombreado. Lectura y escritura.

ActivePresentation.Fonts(1).Shadow = msoTrue

Size Devuelve o establece el tamaño de carácter en puntos. Lectura y escritura.

ActivePresentation.Fonts(1).Size = 24

Subscript Determina si el texto especificado tiene el formato subíndice. Lectura y escritura.

ActivePresentation.Fonts(1).Subscript = msoTrue

Superscript Determina si el texto especificado tiene el formato superíndice. Lectura y escritura.

ActivePresentation.Fonts(1).Superscript = msoTrue

Underline Determina si el texto especificado (para el objeto Font ) o el estilo de fuente (para el objeto FontInfo ) está subrayado. Lectura y escritura.

ActivePresentation.Fonts(1).Underline = msoTrue

Fonts.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActivePresentation.Fonts.Count

Fonts.Parent Devuelve el objeto primario del objeto especificado.

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