Изменение масштаба листа ScrollBar

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как с помощью элемента управления "ScrollBar1", размещенного, например, на Листе1, плавно изменять масштаб текущего листа (допустим с шагом 10), и чтобы выбранное значение запоминалось, если этот Лист вновь будет выбран (активизирован) пользователем. Так как у меня сейчас в макросе при активизации Листа1 определенный диапазон масштабирует лист по ширине следующим кодом:

Private Sub Worksheet_Activate()
Dim ra As Variant
Set ra = Selection
[A6:L6].Select
ActiveWindow.Zoom = True
ra.Select
End Sub

Заранее спасибо.

[SAS888]

А чем Вас не устраивает, удерживая клавишу Ctrl, вращать колесиком мыши?

[Казанский]

Создайте элемент управления ScrollBar1, в свойствах установите
Min=10
Max=400
SmallChange=10
LargeChange=50
В модуль листа вставьте

Private Sub ScrollBar1_Change()
ActiveWindow.Zoom = ScrollBar1.Value
End Sub

Вроде все.

[SAS888]

Создайте элемент управления...В модуль листа вставьте...

Работать будет. Но, мне кажется, что установив масштаб, например, 10%, пользователь после этого вряд ли вновь попадет мышкой в ScrollBar, который уменьшится пропорционально.
Думаю, что лучше создать немодальную пользовательскую форму, содержащую ScrollBar со всеми требуемыми свойствами, расположив ее в удобном месте окна Excel.

[Казанский]

ScrollBar остается активным, если не кликнуть по листу, так что можно использовать стрелки вверх-вниз (SmallChange) и PageUp-PageDown (LargeChange)

[ольгаг]

Спасибо большое всем за ответы. Я думаю решение использовать форму разумно, попробую.