Ler em inglês

Compartilhar via


Propriedade Font2.Fill (Office)

Obtém as propriedades de formatação para a fonte do texto especificado. Somente leitura.

Sintaxe

expressão. Preencher

Expressão Uma expressão que retorna um objeto Font2 .

Exemplo

O código a seguir pressupõe que uma forma tenha sido inserida na Planilha1. O código insere o texto na forma e altera a cor do fore da fonte para negrito e vermelho. Em seguida, ele adiciona um retorno de carro após a segunda palavra, criando um segundo parágrafo e alinha o parágrafo à direita.

Sub TestShapeAttributes() 
 Dim shp As Excel.Shape 
 Dim rng As Office.TextRange2 
 Dim rngWord As Office.TextRange2 
 Dim rngRun As Office.TextRange2 
 Dim rngPara As Office.TextRange2 
 Dim fnt As Office.Font2 
 
 Set shp = ActiveSheet.Shapes(1) 
 Set rng = shp.TextFrame2.TextRange 
 rng.Text = "This is test text." 
 
 Set rngWord = rng.Words(2) 
 Set fnt = rngWord.Font 
 With fnt 
 .Fill.ForeColor.RGB = RGB(255, 0, 0) 
 .Bold = msoTrue 
 End With 
 
 Set rngRun = rng.Runs(3) 
 rngRun.InsertBefore vbCr 
 
 Set rngPara = rng.Paragraphs(2) 
 rngPara.ParagraphFormat.Alignment = msoAlignRight 
End Sub 

Confira também

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.