ACCESS中，怎样缩小窗体的文本框字体大小，为了打标签

Question

access标签字体

Answer 1

难道控件属性里面没有font选项么?

Answer 2

字符框的字号是有的，那是手动改的，但是当你碰见长的单元格信息就会自动缩小字体填充，而不是扩大字符框大小。类似EXCEL中的功能。

Answer 3

字符框的字号是有的，那是手动改的，但是当你碰见长的单元格信息就会自动缩小字体填充，而不是扩大字符框大小。类似EXCEL中的功能。,这个你可以自已算一下长度，然后把TEXTBOX控件长度增大就行

Answer 4

这是报表的，但是我要窗体的。
Option Compare Database
Option ExplicitDim F As Double         '字体大小
Private Sub Report_Load()
    F = Me.Address.FontSize   '在启动时先将正常字体保存起来
End SubPrivate Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    Dim cW As Double
    Me.Address.FontSize = F    '每次主体格式化时，先将字体设为正常大小
    If Me.Address.Width < Me.TextWidth(Me.Address) Then
        cW = (Me.Address.Width - 100) / Me.TextWidth(Me.Address)
        Me.Address.FontSize = Int(Me.Address.FontSize * cW)
    End If
End Sub