Отрегулируйте размер окна, чтобы установить диапазон без масштабирования

VBA wizard! Я пытаюсь настроить размер окна excel для отображения только ячеек (B2: K20) без необходимости использовать «зум». Я хочу увеличить масштаб до 100%.Отрегулируйте размер окна, чтобы установить диапазон без масштабирования

Sub win() 
    With ActiveWindow 
     .WindowState = xlNormal 
     .Top = 0 
     .Left = 0 
     .Height = 400 
     .Width = 400 
    end with 
end sub

источник

2015-11-23 Yong

расскажите нам, что он не делает, что вы хотите. Вы хотите, чтобы все приложение XL было таким размером или просто окном книги? –

Как это отличается от [вашего другого вопроса] (http://stackoverflow.com/questions/33865681/adjust-window-size)? –

Если вы знаете, как получить тот эффект, который вы хотите - сделайте это с включенным макрорекордером. –

Почему бы не просто спрятать все, что вам не нужно? Это позволит сохранить ваш «зум» на 100%, сохраняя при этом внимание пользователя только на ячейках, которые вы хотите видеть.

'Hide All columns from L to end: 
Range(Range("L1"), Cells(1, Columns.Count)).EntireColumn.Hidden = True 
'Hide All rows from 21 to end: 
Range(Range("B21"), Cells(Rows.Count, 2)).EntireRow.Hidden = True 
'Hide Row 1: 
Range("A1").EntireRow.Hidden = True 
'Hide Column A: 
Range("A1").EntireColumn.Hidden = True

источник

2015-11-23 20:22:58 Chrismas007

@Yong Если это работает для вас, не забудьте принять с зеленой галочкой. – Chrismas007

Отрегулируйте размер окна, чтобы установить диапазон без масштабирования

ответ

Смежные вопросы