Access自动调整控件大小至合适

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

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

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

创建源码：

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 方法使控件变大还是变小，取决于它所包含的文本或图像的大小。