excel - 多选列表框中的最后一项仅部分可见

Question

我有一个带有多个列表框的 excel 表。所有这些都是多选的。由于 excel 总是弄乱列表框的尺寸，我在打开工作簿时有一段代码可以修复它们:

Private Sub Workbook_Open()
    Dim Ctrl As OLEObject

    For Each Ctrl In Sheets("SomeSheet").OLEObjects
        If Ctrl.progID = "Forms.ListBox.1" Then
            With Ctrl
            .Width = 95.4
            .Height = 70.2
            End With
        End If
    Next Ctrl  
End Sub

但是过了一会儿，我注意到最后一个条目充其量是部分可见的。在互联网上搜索为我提供了一个解决方案: link .

不幸的是，该解决方案对我不起作用。我将上面的代码修改为:

Private Sub Workbook_Open()
    Dim Ctrl As OLEObject

    Application.ScreenUpdating = False

    For Each Ctrl In Sheets("SomeSheet").OLEObjects
        If Ctrl.progID = "Forms.ListBox.1" Then
            With Ctrl
            .Object.IntegralHeight = False
            .Width = 95.4
            .Height = 70.2
            .Object.IntegralHeight = True
            .Object.MultiSelect = fmMultiSelectSingle
            .Object.MultiSelect = fmMultiSelectExtended
            End With
        End If
    Next Ctrl   
End Sub

结果是我设置的宽度和高度再次被excel搞砸了，只要.height后面的三个语句被执行。每个语句都会导致列表框在两个维度上进一步缩小。更糟糕的是，他们也离开了他们的位置。

我正在寻找如何解决此问题的任何线索，以便拥有所需尺寸的列表框，并且所有条目都可见。

编辑 20140905
根据请求添加屏幕截图。即使滚动条建议我可以进一步向下滚动，这是不可能的。正如您从蓝色看到的那样，“橙色”在那里，被选中，并且在列表框中。

Answer 1

将 ListBox 的 IntegralHeigth 属性设置为 false。