Results 1 to 7 of 7

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

Threaded View

  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

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