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

[valerij]

Как автоматизировать Масштаб Листов от разрешения монитора?
Т. е. дома у меня 1024 х 768, а в офисе 800 х 600 и каждый раз, в ручную, 17 листов меняю масштаб.

[alexinspir]

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

Как автоматизировать Масштаб Листов от разрешения монитора?
Т. е. дома у меня 1024 х 768, а в офисе 800 х 600 и каждый раз, в ручную, 17 листов меняю масштаб.

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

[дмидми]

Sorry, лень искать. Можно поиграться с чем-то вроде (кидаю не глядя какую-то старую макруху)

Sub ExcelWinSize()
    With Application
'        .Width = 606
'        .Height = 456
        '-2 -3
        'maximised 606 456
        MsgBox "Left " & .Left & " Top " & .Top & vbCr _
            & "Width " & .Width & " Height " & .Height & vbCr _
            & "PointsToScreenPixelsX: " _
            & .Windows(1).PointsToScreenPixelsX(.Width) & vbCr _
            & "PointsToScreenPixelsY: " _
            & .Windows(1).PointsToScreenPixelsY(.Height) _
            , vbInformation, "Excel 1st window"
    End With
End Sub

[valerij]

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

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

Наверно, плохо объяснил, дома у меня 1024 х 768 и что бы таблица полностью отображалась, ставлю масштаб 115 и этот же файл, приношу на работу, 800 х 600 и что бы таблица полностью отображалась, ставлю масштаб 92.
дмидми!
Че та тишина, но пробую поиграться, мысль, поймал!

[VictorM]

А если поставить кнопулечку и переключать масштаб в зависимости от того, где работаешь:

Sub shZoom() 'для раб компа
'выделить рабочие! листы (скрытые не затрагиваются)
For Each iList In Worksheets
    If iList.Visible = True Then
       iList.Select Replace:=False
    End If
Next
ActiveWindow.Zoom = 92
Worksheets(1).Select Replace:=False
End Sub

[valerij]

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

А если поставить кнопулечку и переключать масштаб в зависимости от того, где работаешь

Конечно, мона, но желательно автоматом, а может так(но не наю как этот алгоритм решить):
Есть на работе и дома в папке(имя папки одно и тоже), файлик "хххх.txt или xls", но в нем, на работе прописан в А1=800, а дома А1=1000.
Эти файлики мона скрыть. При открытии, что дома, что на работе идет обращение к этому файлу.....

[VictorM]

Конечно, мона, но желательно автоматом

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

[valerij]

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

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

Виктор, я же написал как Excel определит где я нахожусь(дома файлик 1000.xls, а на работе файлик 800.xls.)
Я не прав?

[VictorM]

так чё два файла?
не это слишком...
хотя у каждого свои условия задачи и методы ее решения.

[valerij]

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

так чё два файла?
не это слишком...

Да нет, не два, а так:
Мой основной файл, что дома, путь "F:\В ОФИС\2008\ОКТЯБРЬ\", создадим папку и новый путь "F:\В ОФИС\2008\ОКТЯБРЬ\Zoom\"
В папке "Zoom", дома, есть файл 1000.xls, а на работе, оставим все как есть, тогда макрос определяет, где я, дома или на работе и все делает, и если масштаб разный, в Листах

Private Sub Workbook_Open()
Dim FName As String, FPath As String, i As Integer, x As Long, xK As Long
i = 0: xK = 0: x = 115
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
           FPath = "F:\В ОФИС\2008\ОКТЯБРЬ\Zoom\"
           FName = Dir(FPath & "*.xls")
           If FName Like "1000.xls" Then i = 1
           If i < 1 Then x = 92
            For L = 1 To 16
            If L = 8 Then xK = 8
            If L > 14 Then xK = 5
                Sheets(L).Select
                ActiveWindow.Zoom = x - xK
                xK = 0
            Next
                Sheets("Лист1").Select
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

дмидми, спасибо, навел на мысль, я нашел как SAS, нечто такое показывал!