No.1

字体设置是Excel或Word办公软件最简单的操作，下面把所有字体对象的属性罗列一遍，介绍一下，如何使用vba代码进行相应的字体设置。

下图为字体对象Font的所有属性。一共18个。

其中进了相对简单，不需要之么高深的理解。

No.2

下图以一个例子，对所有Font对象的设置进行一个可视化操作，可以在左边值的列中选择相应的值，单击按钮即可看到字体效果。

十分简单。下面重点看一下代码，如何来实现。

'.Background = xlBackgroundTransparent '背景

'.Bold = True '粗体

'.Color = RGB(222, 1, 1)

'.ColorIndex = 9

'.FontStyle = "Italic" ''Regular Bold Bold Italic'字体样式

'.Italic = True '斜体

'.Name = "宋体" '名称

'.Size = 20'文本大小

'.Strikethrough = True '删除线

' .Subscript = True '下标

' .Superscript = True '上标

'.TintAndShade = 1 '颜色深浅

'.Underline = True '下划线

按钮代码

Private Sub CommandButton1_Click()
Dim w As Worksheet, xV As Range, f As Range
Set w = ActiveSheet
Set f = w.Range("D3")
Set xV = w.Range("F5")
With xV
    .Clear
    .Value = w.Range("D11").Value
    With .Font
        .Name = f.Value
        .Size = f.Offset(1, 0).Value
        .Bold = f.Offset(2, 0).Value
        .Italic = f.Offset(3, 0).Value
        .Superscript = f.Offset(4, 0).Value
        .Subscript = f.Offset(5, 0).Value
        .Strikethrough = f.Offset(6, 0).Value
        .Underline = f.Offset(7, 0).Value
        .ColorIndex = f.Offset(9, 0).Value
    End With
End With
End Sub

No.3

字体设置应用于"设置单元格或图形中所有文本的格式"，也可以使用Range的Characters属性来返回字符合集进行设置。

如:

dim Rs as Range
set Rs=Activesheet.Range("A1:C10")
With Rs.Font
.name="宋体"
.size=12
.Bold=True
End With

通常在Range对象下的Font设置还是十分方便的，如果是Shape或Chart对象之下的文本框，其代码相对有一些差异，不过差别不大。

---END---

欢迎关注、收藏