scroll bar in userform

[robfo0]

hi everyone, having a bit of a problem. Ive looked in the help index and searched this board but found nothing. I need to put a vertical scroll bar in my userform because it is too long to view. I added one, but it doesnt work. Do i have to add some code to make it work? if so, what? thanks!

 

[Juan Pablo González]

I think you can accomplish this in an easier fashion.

Userforms have 6 properties (If i remember correctly) that relate directly to ScrollBars.

Set the .ScrollBars property to 2
Now, set the .ScrollTop to 0 (So it will appear always at the top of the form)

and finally, you must change the .ScrollBarHeight to something... for example, If the UserForm height is 100, try setting this property to 200 and see how that works. There's a more "elegant" way of finding this number, but, this works as well.

 

[robfo0]

perfect! thanks juan, i saw the properties in there, but missed the "scrollbars" option. Thanks once again!

 

[Kris75]

Still Great Advice - Thanks

 

[MFGO12]

Juan Pablo -so here it is several years later, and I needed this very thing. It was most helpful.Thank you!

Antonio.

 

[Dan777]

I've scrolltop = 0 and still, upon opening the bar is close to the bottom.

how do I fix it so the bar opens on the top (scrolltop = 0)
---I did place Me.scrolltop = 0 under initialize and it didnt work

 

[Dan777]

ScrollTop = 0 in the initial phase

for some reason, activate is needed:
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
.ScrollTop = 0
End With
End Sub