Propiedad TextRange.MajorityFont (Publisher)

Devuelve un objeto Font que representa el nombre de fuente de uso más frecuente en un intervalo de texto.

Sintaxis

expresión. MajorityFont

expresión Variable que representa un objeto TextRange .

Valor devuelto

Fuente

Ejemplo

En este ejemplo se crea un cuadro de texto nuevo. se rellena con texto, se compruebe si la fuente de uso más frecuente es Tahoma y, si no lo es, se cambia la fuente a Tahoma.

Sub SetFontName() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes _ 
 .AddTextbox(Orientation:=pbTextOrientationHorizontal, _ 
 Left:=100, Top:=100, Width:=100, Height:=100) _ 
 .TextFrame.TextRange 
 For intCount = 1 To 10 
 .InsertAfter NewText:="This is a test. " 
 Next intCount 
 If .MajorityFont <> "Tahoma" Then _ 
 .Font.Name = "Tahoma" 
 End With 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.