UserForm TextBox 字体大小问题

Question

首先，我希望这个问题以前没有被问过，我找不到类似的问题。

我在用户窗体中有几个文本框，根据 Excel 工作表中使用的行数自动生成。正在从单元格中提取文本。这一切都没有任何问题。

Private Sub CreateBoxes()
    Dim lastRow As String
    Dim tb_X As MSForms.TextBox
    Dim TopPos As Integer

    lastRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    
    TopPos = -15
    For i = 1 To lastRow
        If Sheets("Data").Range("C" & i).Value = "Booking" Then
            Set tb_X = Frame6.Controls.Add("Forms.TextBox.1", "tb_" & i, True)
            TopPos = TopPos + 15
            With tb_X
                .Height = 15
                .Width = 190
                .SpecialEffect = fmSpecialEffectFlat
                .Left = 5
                .Top = TopPos
                .Font.Size = 11
                .Text = tB_X.Font.Size  'just a test, to get the set font size
            End With
        End If
    Next
End Sub

Font.Size 设置为 11。但是某些文本框的文本比其他文本框的文本大。如果我将大小设置为 10 或 14，它们都是相同的，否则不是。我尝试使用

MultiLine

、

WordWrap

 等，但没有成功。

对此你有解释吗？

PS： 我知道我可以使用列表框来做到这一点，但我想要更多的框选项，例如不同的背景颜色等，这就是为什么我决定使用多个文本框而不是一个列表框。据我所知，VBA 在这个方向上非常有限。

谢谢！

Answer 1

我不知道这是否有帮助（几乎两年后......），但我也遇到了类似的问题，两个标签具有相同的字体类型和大小，但以不同的大小显示...... 我终于发现我的问题在于标签的大小，它太小而无法以正确的大小显示文本（似乎用户窗体显示在大小和位置方面非常敏感且不稳定......） CMI