Excel VBA以编程方式更改ListBox的高度和宽度

Question

Sub add_ListBox()
Dim box As msforms.ListBox
Dim myBox As Object

For i = 0 To Select_Files.FileBox1.ListCount - 1
    Set box = UserForm4.Controls.Add("Forms.ListBox.1", "tSourceBox" & i + 1, True)
    Set myBox = box

    With myBox
        .ColumnCount = 2
        .ColumnWidths = "0 pt;189 pt"
        .IntegralHeight = True
        .Top = 24
        .Left = 6
        .Height = 153
        .Width = 189
    End With
Next


End Sub

上面的代码突然停止正常工作，我不明白为什么。最初，它生成具有指定高度和宽度的ListBoxes。但是，当我运行代码高度和宽度时，突然间不是代码中指定的内容。

我怎样才能控制ListBoxes的高度和宽度？

Excel 2010 Windows 7 x64

Answer 1

有一个名为IntegralHight for ActiveX listbox的属性，将其设置为False。