通过

Font2.Fill 属性 (Office)

  • 项目

获取指定文本的字体的格式设置属性。 此为只读属性。

语法

表达式。填补

表达 返回 Font2 对象的表达式。

示例

以下代码假定形状已插入 Sheet1。 代码将文本插入形状，并将字体的前景色更改为粗体和红色。 然后，它会在第二个单词后面添加回车符，创建第二个段落，并将段落与右侧对齐。

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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。