shrinking or extra-large list box

[KimberC]

I have created an ActiveX listbox control and it works just fine on my PC. However, when I send the file to others, about half of them either experience the listbox being smaller than the size I created or larger. I've tried deleting and re-inserting the listbox while at 100% zoom and lower zoom percentages. It seems that when I create it at 80% zoom, the users get a "shrunken" list box that "fixes" itself to the right size by them changing their zoom. If I create it at 100% zoom, they get the extra-large box and it doesn't change size when they zoom.

I've done some internet research and found a suggestion to set the IntegralHeight to False, but that did not fix the problem. Any help to keep my list box the size I created it to be would be most appreciated!!

 

[Glory]

I'm having the same problem, except it's my userform that won't keep its proper height.

 

[KimberC]

Well...no answer make me think this is not a simple problem. For those interested, I didn't "fix" it, but I did find a workaround. I added this code to the worksheet after my users told me that zooming in and out fixed the problem for them...I just did that for them every time they open the sheet.

If anyone knows how to actually fix the problem vs. make it look fixed, I'm all ears!!

KimberC

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    ActiveWindow.Zoom = 100
    dbSheet.Shapes("myListBoxName").Select
    With Selection
        .Height = 62.25
        .Left = 29.25
        .Top = 158.25
        .Width = 144
    End With
    Range("B1").Select
 
    ActiveWindow.Zoom = 80
    Application.ScreenUpdating = True
 End Sub