在Access中，我们创建的窗体里面有各种的控件。但是有时因为样式排版等问题，导致控件的标题显示不完整。

例如，在一个太小、无法显示其标题属性中全部文本的命令按钮 ，我们需要自动适应大小

这里可以使用 SizeToFit 方法，可以调整控件的大小，使其能够容纳所包含的文本或图像。

在窗体上创建一个新的命令按钮。然后设置控件的 Caption 属性并调整控件的大小以容纳标题。

创建源码：

Sub SizeNewControl() Dim frm As Form, ctl As Control Set frm = CreateForm Set ctl = CreateControl(frm.Name, acCommandButton, , , , 500, 500) DoCmd.Restore ctl.Caption = "Office中国 创建控件标题" ctl.SizeToFit End Sub

注意：

SizeToFit 方法只能在窗体设计视图 或报表设计视图中对控件应用 SizeToFit 方法。

SizeToFit 方法使控件变大还是变小，取决于它所包含的文本或图像的大小。

更多的Access技巧源码请关注Office中国论坛： http://www.office-cn.net