Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоподбор по размеру экрана
 
#1
28.03.2013 18:52:00
Добрый день!
Подскажите пожалуйста, как можно реализовать следующую задачу: при открытии файла, чтобы информация на навигационном листе автоматически подстраивалась под размер экрана компьютера. Пример файла прилагаю. Заранее большое спасибо!!!
 
 
 
#2
28.03.2013 18:58:42
Это не я.
:)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#3
28.03.2013 20:48:48
Владимир (который автор), смените ник, этот уже занят.Давненько...
 
 
 
#4
28.03.2013 21:09:26
ActiveWindow.VisibleRange - видимый на экране диапазон
ActiveWindow.VisibleRange.Width - ширина этого диапазона
по аналогии определятся высота.
по ним пропорционально и стройте элементы листа.
Учимся сами и помогаем другим...
 
 
 
#5
28.03.2013 21:21:38
Попробуйте простое но рабочее решение

Код
Private Sub Workbook_Open()
    With Sheets(1)
        .Activate
        .Range("A1:L26").Select
        ActiveWindow.Zoom = True
        .[a1].Select
    End With
End Sub
 
 
 
#6
29.03.2013 10:27:38
Спасибо за помощь! Все получилось :)
 
 
 
#7
14.04.2013 20:57:48
Добрый вечер!
Извините, но не могли бы подсказать , как сделать так, чтобы макрос срабатывал при переходе на лист который нужно подобрать автоматически по размеру экрана. А то бывают файлы где есть стартовый лист, а потом уже лист с информацией и файл открывается со стартового листа
 
 
 
#8
14.04.2013 21:04:25
Перенесите сам код в модуль того листа  на событие его активации.
 
 
 
Страницы: 1
Читают тему
Наверх