Propriedade Font2.Fill (Office)
Obtém as propriedades de formatação para a fonte do texto especificado. Somente leitura.
expressão. Preencher
Expressão Uma expressão que retorna um objeto Font2 .
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
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.