B
Brandt
I am trying to get the horizontal scroll bar on a MultiPage page to work. I
have a main MultiPage (MultiPage1). On each page of the main MP there is
another (sub-)MultiPage (i.e. MultiPage2 is on Page1 (index 0) of
MultiPage1). The following code works to insert Horizontal Scroll Bars on
the correct page (of the sub- MultiPage) and with the correct horizontal
scroll range, but nothing I do will affect the ScrollLeft Property. (I've
included 3 examples of what I have tried - none of them do anything.) I do
not get any kind of errors, just a scroll bar that is positioned wherever
excel wants it (usually about 1/8 of the way from the left edge). As a note,
I have tried a Me.Repaint at the end of the Sub with no effect.
Thanks in advance for any help!!
Private Sub UserForm_Initialize()
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, &H84CE0080
MultiPage2.Pages(0).ScrollBars = fmScrollBarsHorizontal
MultiPage2.Pages(0).KeepScrollBarsVisible = fmScrollBarsHorizontal
MultiPage2.Pages(0).ScrollWidth = 805
MultiPage2.Pages(0).ScrollLeft = MultiPage2.Pages(0).ScrollWidth -
MultiPage2.Width
MultiPage2.Pages(0).ScrollLeft = 0
MultiPage2.Pages(0).ScrollLeft = MultiPage2.Width / 2
End Sub
have a main MultiPage (MultiPage1). On each page of the main MP there is
another (sub-)MultiPage (i.e. MultiPage2 is on Page1 (index 0) of
MultiPage1). The following code works to insert Horizontal Scroll Bars on
the correct page (of the sub- MultiPage) and with the correct horizontal
scroll range, but nothing I do will affect the ScrollLeft Property. (I've
included 3 examples of what I have tried - none of them do anything.) I do
not get any kind of errors, just a scroll bar that is positioned wherever
excel wants it (usually about 1/8 of the way from the left edge). As a note,
I have tried a Me.Repaint at the end of the Sub with no effect.
Thanks in advance for any help!!
Private Sub UserForm_Initialize()
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, &H84CE0080
MultiPage2.Pages(0).ScrollBars = fmScrollBarsHorizontal
MultiPage2.Pages(0).KeepScrollBarsVisible = fmScrollBarsHorizontal
MultiPage2.Pages(0).ScrollWidth = 805
MultiPage2.Pages(0).ScrollLeft = MultiPage2.Pages(0).ScrollWidth -
MultiPage2.Width
MultiPage2.Pages(0).ScrollLeft = 0
MultiPage2.Pages(0).ScrollLeft = MultiPage2.Width / 2
End Sub