Масштаб Листов от разрешения монитора

[IgorGO]

при открытии документа выполнить вот это

    r = ActiveCell.Row
    c = ActiveCell.Column
    Range("A1:N29").Select
    ActiveWindow.Zoom = True
    Cells(r, c).Select

только вместо "A1:N29" пишем свой диапазон, который хотим видеть. эта штука сработает не только для разных разрешений монитора но и для того случая, когда эксель работает не в полноэкранном режиме.

[slan]

Сообщение от VictorM

любому автоматическому устройству необходим датчик, так и в Вашем случае. Как Excel определит где Вы работаете, дома или на работе? Сумеете решить эту задачу - тогда конечно можно и без кнопулек обойтись.

по разрешению и определит...

а лучше, может быть, использовать
application.activewindow.activepane .visiblerange.count ?

сколько видно, такой и масштаб..

или сколько надо, столько и отобразить, меняя масштаб..

[VictorM]

по разрешению и определит...

хм..., логично !))
чёт я протупил ))

[valerij]

Сообщение от IgorGO

при открытии документа выполнить.

Игорь, вот переделал под свои 16 Листов, меняю на Листах, масштаб, все работает, НО, как только, перенес файл на др. ПК с 800 х 600, то происходит не соответствие, т. е. предел видимости таблицы "просится" еще увеличить, тот код, что я привел выше, работает почти идеально, чуть, чуть видимость таблицы, "просится" уменьшить.

Private Sub Workbook_Open()
Dim i As Integer, xK As Long
i = 11: xK = 25
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
            For L = 1 To 16
            Sheets(L).Select
            If L = 8 Then xK = 27
            If L = 14 Then xK = 21: i = 9
            If L > 14 Then xK = 27
    r = ActiveCell.Row
    c = ActiveCell.Column
    Range(Cells(1, 1), Cells(xK, i)).Select
    ActiveWindow.Zoom = True
    Cells(r, c).Select
    xK = 25
            Next
                Sheets("ЛЕН").Select
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

slan!!
Что значит, красным или тут ошибка?
application.activewindow.activepane .visiblerange.c ount

[IgorGO]

предел видимости таблицы "просится" еще увеличить

Валера, а ты увеличь масштаб изображения на один процент вручную и увидишь как последняя строка или колонка полностью или частично уйдет за границы поля видимости. Проверь. Я тоже себя ловил на этой мысли.

"application.activewindow.activepan e.visiblerange.c ount" - в конце ".count", без пробела между ".c" и "ount".

Валера, смотри у тебя в цикле на 14 листе i поменял значение на 9 и не восстановил его 11, как задано перед циклом. хк ты восстанавливаешь к 25, а i остается 9 после 14-го листа, так задумано или ошибка?

[valerij]

Сообщение от IgorGO

а i остается 9 после 14-го листа, так задумано или ошибка?

Да, так задумано, Листы с 14 по 16, i = 9

Остальное попробую.
А этот код:

Application.ActiveWindow.ActivePane.VisibleRange.Count

Invalid use of Property

З. Ы.
Страно, если я этот код, вставляю без тег, то в Count, разделяется пробелом!
Application.ActiveWindow.ActivePane .VisibleRange.Count

[IgorGO]

на счет ".C ount" - вполне возможно. это было не проверенное предположение

[tolikman]

Давненько попал на ресурс через ссылку в какой-то теме VictorM'а, за что очень благодарен ему.

Private Declare Function GetSystemMetrics _
        Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Sub GetSystemScreen()
    Dim iX As Long, iY As Long
    iX = GetSystemMetrics(1&) 'высота в точках'
    iY = GetSystemMetrics(0&) 'соответсвенно, ширина'
    MsgBox "разрешение экрана : " & _
    iX & "x" & iY, vbExclamation, "Информация"
End Sub

ресурс msoffice.nm.ru
и запускай во время открытия книги.

[slan]

Сообщение от valerij

slan!!
Что значит, красным или тут ошибка?
application.activewindow.activepane .visiblerange.c ount

пробел откуда-то влез - count - считать. вообще данное выражение находит количество видимых ячеек в активном окне

т.е. если окно максимизировать, посмотреть сколько ячеек видно и в цикле увеличивать/уменьшать масштаб до получения нужного количества видимых ячеек - разрешение экрана тут учитывается косвенно..

[slan]

Сообщение от tolikman

Давненько попал на ресурс через ссылку в какой-то теме VictorM'а, за что очень благодарен ему.

Private Declare Function GetSystemMetrics _
        Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Sub GetSystemScreen()
    Dim iX As Long, iY As Long
    iX = GetSystemMetrics(1&) 'высота в точках'
    iY = GetSystemMetrics(0&) 'соответсвенно, ширина'
    MsgBox "разрешение экрана : " & _
    iX & "x" & iY, vbExclamation, "Информация"
End Sub

ресурс msoffice.nm.ru
и запускай во время открытия книги.

ну можно и api, но есть же и свойства объектов window или aplication..

api могут быть с подозрением восприняты антивирусами..