在VBA中工作时，可以创建的其中一项内容称为“用户表单”。这些表单使您能够从根本上创建自己的对话框。如果需要，可以向用户表单添加许多不同类型的控件。例如，您可以添加标签，文本框，下拉列表，单选按钮和许多其他控件。

您可以调整一些控件的大小；其他你做不到的。一个您不能调整大小的复选框。虽然可以修改复选框旁边标签所使用的字体大小，但不能调整复选框本身的大小。

如果您发现用户表单中的复选框太小而无法满足您的口味，则可以通过模拟复选框来“变通”它们。通过实际创建标签而不是复选框来完成此操作。然后，更改标签的属性，使其具有透明背景，并且所使用的字体为Wingdings。您还应确保将字体设置为较大的字体，例如20或26磅。

现在，双击您的标签，这将打开一个代码窗口。您正在编程的事件是标签的Click事件，这意味着只要单击标签，就会执行该事件。使用它作为您的代码：

Private Sub Label1_Click()

If Label1.Caption = Chr(254) Then         Label1.Caption = Chr(168)

Else         Label1.Caption = Chr(254)

End If End Sub

在Wingding字体中，Chr（254）是带有选中标记的框，Chr（168）是没有选中标记的框。当您执行用户表单并单击标签时，它将在一个空框和一个复选框之间切换。您还可以根据需要将其他代码添加到执行其他任务的Click事件中。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2282）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

调整大小复选框。