-
Mar 4th, 2008, 02:15 PM
#1
VBA - Working with Scroll Bars - The most simplest way
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)
Code:
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.
Code:
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
Last edited by Siddharth Rout; Aug 1st, 2012 at 01:03 AM.
Reason: Changed Code tags
A good exercise for the Heart is to bend down and help another up...
Please Mark your Thread "Resolved", if the query is solved
MyGear:
★ CPU ★ Ryzen 5 5800X
★ GPU ★ NVIDIA GeForce RTX 3080 TI Founder Edition
★ RAM ★ G. Skill Trident Z RGB 32GB 3600MHz
★ MB ★ ASUS TUF GAMING X570 (WI-FI) ATX Gaming
★ Storage ★ SSD SB-ROCKET-1TB + SEAGATE 2TB Barracuda IHD
★ Cooling ★ NOCTUA NH-D15 CHROMAX BLACK 140mm + 10 of Noctua NF-F12 PWM
★ PSU ★ ANTEC HCG-1000-EXTREME 1000 Watt 80 Plus Gold Fully Modular PSU
★ Case ★ LIAN LI PC-O11 DYNAMIC XL ROG (BLACK) (G99.O11DXL-X)
★ Monitor ★ LG Ultragear 27" 240Hz Gaming Monitor
★ Keyboard ★ TVS Electronics Gold Keyboard
★ Mouse ★ Logitech G502 Hero
-
Dec 25th, 2009, 11:01 AM
#2
Hyperactive Member
Re: VBA - Working with Scroll Bars - The most simplest way
Is it Work ?
I tried with visual basic 6.0 it don't work ?
-
Dec 26th, 2009, 09:20 AM
#3
Re: VBA - Working with Scroll Bars - The most simplest way
Originally Posted by CatchItBaby
Is it Work ?
I tried with visual basic 6.0 it don't work ?
It is for VBA
A good exercise for the Heart is to bend down and help another up...
Please Mark your Thread "Resolved", if the query is solved
MyGear:
★ CPU ★ Ryzen 5 5800X
★ GPU ★ NVIDIA GeForce RTX 3080 TI Founder Edition
★ RAM ★ G. Skill Trident Z RGB 32GB 3600MHz
★ MB ★ ASUS TUF GAMING X570 (WI-FI) ATX Gaming
★ Storage ★ SSD SB-ROCKET-1TB + SEAGATE 2TB Barracuda IHD
★ Cooling ★ NOCTUA NH-D15 CHROMAX BLACK 140mm + 10 of Noctua NF-F12 PWM
★ PSU ★ ANTEC HCG-1000-EXTREME 1000 Watt 80 Plus Gold Fully Modular PSU
★ Case ★ LIAN LI PC-O11 DYNAMIC XL ROG (BLACK) (G99.O11DXL-X)
★ Monitor ★ LG Ultragear 27" 240Hz Gaming Monitor
★ Keyboard ★ TVS Electronics Gold Keyboard
★ Mouse ★ Logitech G502 Hero
-
Jun 16th, 2011, 02:39 AM
#4
New Member
Re: VBA - Working with Scroll Bars - The most simplest way
-
Jun 21st, 2011, 06:52 AM
#5
New Member
Re: VBA - Working with Scroll Bars - The most simplest way
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.
-
Aug 31st, 2011, 09:05 AM
#6
New Member
Re: VBA - Working with Scroll Bars - The most simplest way
Originally Posted by CatchItBaby
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?
Last edited by Tobiasgar; Jun 22nd, 2012 at 02:25 AM.
-
Jul 18th, 2012, 03:12 PM
#7
Lively Member
Re: VBA - Working with Scroll Bars - The most simplest way
VB2010
Hope It Helps.
Last edited by VBbbq; Jul 21st, 2012 at 11:50 PM.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|