Страницы: 1
RSS
VBA Прокрутка формы
 
Доброго времени суток!  
Скажите, пожалуйста, на нетбуке userform не влазит на экран, если делать zoom, то шрифты становятся нечитаемыми совсем. Возможно ли сделать прокрутку по горизонтали и вертикали?  
Спасибо.
 
Разбить форму на страницы-закладки или на несколько форм - не принимаются такие варианты?
 
Спасибо, Виктурр, уже и так разбила, как могла, не вариант :)
 
Page не пробовали?
Excel 2007
 
В свойствах формы CrollBarrs -  выбираем тройку.
 
ABC, если MultiPages имеете ввиду, то пробовала, конечно, их там и так предостаточно. Вопрос стоит именно в том, чтобы организовать или прокрутку или (не знаю, как точно это называется на русском... когда размер рабочего стола windows больше, чем размер экрана, мышкой водим - экран перемещается). Как то так :)
 
Юрий, здравствуйте. Пробовала поставить троечку, но дело в том, что нижний скрол за пределами экрана и форма не передвигается...
 
Привет, Диан! Так изначально форму нужно уменьшить (не меняя позиции контролов).
 
Юрий, а почему ничего не происходит при нажатии на скролл?
 
:-) Ставим в ScrollHight значение, например, 500. Аналогично в ScrollWidth...
 
и правда, сейчас бы сидела еще ночь, мучилась :)  
Спасибо, Юрий! Все прекрасно работает! :)
 
Private Sub UserForm_Activate()  
Dim w As Long, h As Long  
UserForm1.Top = 5  
UserForm1.Left = 5  
w = GetSystemMetrics32(0)  
h = GetSystemMetrics32(1)  
UserForm1.Width = w / 2  
UserForm1.Height = h / 2  
End Sub  
 
в модуль  
Declare Function GetSystemMetrics32 Lib "User32" _  
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Excel 2007
 
то есть место  
UserForm1.Width = w / 2  
UserForm1.Height = h / 2  
 
это  
UserForm1.ScrollWidth = w / 2  
UserForm1.ScrollHeight = h / 2
Excel 2007
Страницы: 1
Читают тему
Наверх