ListBox (ActiveX Controls) apear with two scroll bars for some users

[ThomasA83]

Hi,

I am working in Excel Pro Plus 2016 and have the issue, when some users open my file, that the scrollbar in the ListBox (ActiveX) shows odd and twice. This is not an issue on my own laptop nor a few other user's, and I cant figure out why this issue occur for some.

Users with issue look like this: https://ibb.co/mXCGtG

Users with no issues: https://ibb.co/k66btG

Any idea what could be wrong?

Brgds
Thomas

 

[thisoldman]

Here's what I tested: a Worksheet_Activate event. I added a bit of boilerplate but I can't guarantee this code solves your odd problem.

Option Explicit

Private Sub Worksheet_Activate()
    RedrawListboxes
End Sub

Sub RedrawListboxes()
    Dim lbox_top As Double
    Dim lbox_left As Double
    Dim lbox_ht As Double
    Dim lbox_wd As Double
    Dim obj As OLEObject
    
    For Each obj In OLEObjects
    
        If TypeOf obj.Object Is MSForms.ListBox Then
            With obj
            
                ' Store current box's position and size.
                lbox_top = .Top
                lbox_left = .Left
                lbox_ht = .Height
                lbox_wd = .Width
                
                ' Make the box disappear.
                .Top = 0
                .Left = 0
                .Height = 0
                .Width = 0
                .Visible = False
                
                ' Restore the box.
                .Top = lbox_top
                .Left = lbox_left
                .Height = lbox_ht
                .Width = lbox_wd
                .Visible = True
                
            End With
        End If
        
    Next obj
End Sub