1、新建一个Excel文档，后缀名.xlsx。
2、打开ActiveX插入一个按钮控件。
3、编辑按钮控件文字，设置文字格式以及控件大小位置，具体操作：右键点击按钮，选中编辑文字。
4、右键选中按钮，选择指定宏；选择按钮1_Click，然后点击右上角的“编辑”。
5、此时进入了VBA界面。在 Sub 按钮1_Click() 和End Sub易七淄苷之间输入代码：Dim i As ByteDim rng As RangeSet rng = SelectionSelection.Font.Name = "华文彩云" ‘定义字体类别为华文彩云Selection.Font.Size = 18 ’定义字号大小为18Selection.Font.ColorIndex = 53 ‘定义文字颜色With Selection .HorizontalAlignment = xlCenter ’文字居中 .VerticalAlignment = xlBottom .WrapText = False ‘不自动换行 .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With
6、返回Excel界面。本教程以随意输入几个文字为例，如图所示。
7、随意选择单元格，为了突显效果，本教程选的都是有文字的单元格，以A1到B2单元格为例。
8、点击“文字格式”按钮后的效果图如下，瞬间达到了格式刷的效果。
