Results 1 to 7 of 7

Thread: VBA - Working with Scroll Bars - The most simplest way

  1. #1

    Thread Starter
    Discovering Life Siddharth Rout's Avatar
    Join Date
    Feb 2005
    Location
    Mumbai, India
    Posts
    12,001

    Wink 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
    Attached Images Attached Images      
    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

  2. #2
    Hyperactive Member
    Join Date
    Aug 2008
    Posts
    382

    Re: VBA - Working with Scroll Bars - The most simplest way

    Is it Work ?

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

  3. #3

    Thread Starter
    Discovering Life Siddharth Rout's Avatar
    Join Date
    Feb 2005
    Location
    Mumbai, India
    Posts
    12,001

    Re: VBA - Working with Scroll Bars - The most simplest way

    Quote Originally Posted by CatchItBaby View Post
    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

  4. #4
    New Member
    Join Date
    Jun 2011
    Posts
    1

    Thumbs up Re: VBA - Working with Scroll Bars - The most simplest way

    Thanks a lot, it works

  5. #5
    New Member
    Join Date
    Jun 2011
    Posts
    1

    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.

  6. #6
    New Member
    Join Date
    Aug 2011
    Posts
    13

    Re: VBA - Working with Scroll Bars - The most simplest way

    Quote Originally Posted by CatchItBaby View Post
    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.

  7. #7
    Lively Member
    Join Date
    Jun 2012
    Posts
    75

    Re: VBA - Working with Scroll Bars - The most simplest way

    VB2010

    Code:
    AutoScroll  = True
    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
  •  



Click Here to Expand Forum to Full Width