Купил на свою голову iMac 27, теперь при открытии файлов каждый раз вручную увеличиваю до 150% масштаб.
С этим разобрался благодаря макросу с этого форума. Но, теперь все мои коллеги вынуждены при открытии уменьшать масштаб до 100% обратно. Это отнимает время теперь у них )))
Вопрос: как дописать макрос, что бы при закрытии файла (сохранении) масштаб сбрасывался до 100% ?
Помогите люди добрые коллегам моим ))
С этим разобрался благодаря макросу с этого форума. Но, теперь все мои коллеги вынуждены при открытии уменьшать масштаб до 100% обратно. Это отнимает время теперь у них )))
Вопрос: как дописать макрос, что бы при закрытии файла (сохранении) масштаб сбрасывался до 100% ?
Помогите люди добрые коллегам моим ))
Код |
---|
'объявляем переменную нужного типа с поддержкой событий Public WithEvents appALEX As Application 'при открытии файла Personal (=запуске excel) присваиваем этой переменной ссылку на приложение Private Sub Workbook_Open() Set appALEX = Application End Sub 'процедура, обрабатывающая событие открытия книги Private Sub appALEX_WorkbookOpen(ByVal Wb As Workbook) Dim str As String str = Wb.Name If (str <> "PERSONAL.XLSB") Then 'MsgBox ("Открытие книги") 'MsgBox (str) Range("A1").Select Wb.Windows(1).Zoom = 75 End If End Sub |