Multipage Üzerinde Scrollbar Kullanımı

[AyYıldızım]

Arkadaşlar multipage üzerinde herhangi bir sayfada scrolbarr özelliğini nasıl kullanabilirim. Textbox ve label fazla olduğu için kaydırma yapmam gerekiyor.

Userformda

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

kodlarıyla kullanabiliyorum, bunu multipagede page 3 de mesela nasıl kullanabilirim. yardımlarınızı bekliyorum. Saygılar.

 

[AyYıldızım]

Private Sub UserForm_Initialize()

MultiPage1.Value = 0
MultiPage1(2).ScrollBars = 2
MultiPage1(2).ScrollHeight = MultiPage1.Height * 2 End Sub

şeklinde konu halledilmiştir. Yalnız şöyle bir sorun var userform üzerinde çalışırken scrollbar çalışmadığından, aşağı kaydırma işlemi yapamadığımdan nesne ekleme düzeltme yapamıyorum, bunu nasıl çözeceğiz. Saygılar.

 

[AyYıldızım]

Arkadaşlar bu sorunuma yanıt bekliyorum, Vba açıkken userform üzerinde kaydırma nasıl yapılır. Multipage de?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

 

[AyYıldızım]

Teşekkür ederim. yalnız oradan müdehale edemedim, userformun yüksekliğini arttırarak sorunu çözdüm. Saygılar.