Купил на свою голову 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 |
прям улыбнули