Propriedade Font.SizeBi (Publisher)

Devolve ou define um valor variante que representa o tamanho, em pontos, do objeto Tipo de Letra do texto num idioma da direita para a esquerda. O intervalo válido é de 0,5 pontos a 999,5 pontos. Leitura/gravação.

Sintaxe

expressão. SizeBi

expressão Uma variável que representa um objeto Tipo de Letra .

Valor de retorno

Variant

Exemplo

Este exemplo testa o texto no segundo bloco. Se estiver em um idioma escrito da direita para a esquerda, com mais do que 12 pontos, e em itálico, o texto é definido como negrito.

Sub SizeBiIfBig() 
 
 Dim fntSize As Font 
 
 Set fntSize = Application.ActiveDocument.Stories(2).TextRange.Font 
 With fntSize 
 If .SizeBi > 12 And .ItalicBi = msoTrue Then 
 .BoldBi = msoTrue 
 Else 
 MsgBox "The font size is 12 points or less " & _ 
 ", not bold, or this is not in a right-to-left language." 
 End If 
 End With 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.