VBA - Working with Scroll Bars - The most simplest way

[koolsid]

It cannot get more simpler than this

This piece of code is applicable for forms and controls like Frame

1) Forms

Insert a new form and change it's height to say 420 (see pic1)
Place a few controls on the form.

Once you are done, change the height to say 255 (See pic2)

Now you don't need to add a scroll bar. Simply paste this code in the UserForm Activate event as shown below and your userform with scrollbars is ready. (see pic3)

Private Sub UserForm_Activate()
    With Me
        'This will create a vertical scrollbar
        .ScrollBars = fmScrollBarsVertical
        
        'Change the values of 2 as Per your requirements
        .ScrollHeight = .InsideHeight * 2
        .ScrollWidth = .InsideWidth * 9
    End With
End Sub

and run the form. you will get the desired result.

2) Frames

Add a frame to the userform and name it say Frame1 (See pic4). In the userform activate event simply paste this code and your frame with a scroll bar is ready (See pic5). Again you don't need to add scrollbars control to the frame.

Private Sub UserForm_Activate()
   'Name of the frame
   With Me.Frame1
        'This will create a vertical scrollbar
        .ScrollBars = fmScrollBarsVertical
        
        'Change the values of 2 as Per your requirements
        .ScrollHeight = .InsideHeight * 2
        .ScrollWidth = .InsideWidth * 9
    End With
End Sub

Like I said, it cannot be more simpler than this

[CatchItBaby]

Is it Work ?

I tried with visual basic 6.0 it don't work ?

[koolsid]

Is it Work ?

I tried with visual basic 6.0 it don't work ?

It is for VBA

[attajob]

Thanks a lot, it works

[flashswf5]

Hi Sid... please share the code for excel sheet.... means i want to scroll the excel sheet using Scrollbar of Activex control of VBA.

Thanks in advance.
ASNO.

[Tobiasgar]

Is it Work ?

I tried with visual basic 6.0 it don't work ?

similarly, cannot get it work with basic 6/0. has someone any reaonable explanation?

[VBbbq]

VB2010

AutoScroll  = True

Hope It Helps.