Как да промените автоматично размера в електронна таблица на Excel

Стъпка 1

Кликнете върху раздела "Програмист" и кликнете върху "Visual Basic", за да отворите прозореца на VB редактора. Кликнете върху менюто "Вмъкване" и кликнете върху "Модул", за да добавите нов модул за код.

Стъпка 2

Създайте нова под-процедура:

Частна подмяна на размера ()

Стъпка 3

Определете местоположението на главния прозорец на Excel, като използвате левите и горните свойства на обекта на приложението:

Application.Left = 133.75 Application.Top = 7.75

Стъпка 4

Определя ширината и височината на главния прозорец на Excel:

Application.Width = 1173.75 Application.Height = 884.25

Стъпка 5

Добавете следния код, за да определите местоположението на електронната таблица на Excel, като използвате горните и левите свойства на обекта на приложението:

ActiveWindow.WindowState = xlНормално с ActiveWindow .Top = 111.25 .Left = 19.75 Край с

Стъпка 6

Определете размера на прозореца на електронната таблица на Excel с помощта на свойствата "Ширина" и "Височина":

С ActiveWindow .Width = 1010.25. Височина = 590.25 Край с

Стъпка 7

Завършете процедурата с "End Sub". Натиснете "F5", за да изпълните процедурата.