Код Excel VBA для принудительного определенного уровня масштабирования

У меня есть проверенный список раскрывающихся списков в Excel, который нечитабелен, если масштаб меньше 100. Я проверил в Интернете и ударил, что я не могу изменить размер размера текста с подтвержденным списком поэтому я хочу, чтобы обеспечить соблюдение заданного масштаба 100.Код Excel VBA для принудительного определенного уровня масштабирования

У меня есть код, чтобы сделать это следующим образом

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    ActiveWindow.Zoom = 100 
End Sub

Это работает, и это хорошо для людей, которые используют масштаб меньше, чем 100, но если люди используют более 100 зумов ограничивает масштаб до 100. Есть ли способ преодолеть это, что-то вроде строки инструкции If-Else.

Если масштаб меньше, чем 100, то зум = 100 еще, если масштаб больше 100 ничего не делать

Спасибо.

источник

2012-01-30 Ckeane

Вы ответили на свой вопрос: «Если масштаб меньше, чем 100, то увеличение = 100» 'Если ActiveWindow.Zoom <100 Тогда ActiveWindow.Zoom = 100' –

Я ответил ему за часть, если ей меньше 100, чтобы увеличить масштаб до 100, где я застрял, если пользователь устанавливает масштаб до 110, например, масштаб будет равен 100, как только ячейка щелчок. Я не хочу, чтобы это произошло, если вид равен 110, тогда он должен оставаться на этом уровне. Это не так с кодом, как сейчас. – Ckeane

'If ActiveWindow.Zoom <100 Тогда ActiveWindow.Zoom = 100 означает, что« ничего не делать ». –

If (ActiveWindow.Zoom < 100) Then 

    ActiveWindow.Zoom = 100 

End If

источник

2012-01-30 10:13:15 Steven

Вот один вкладыш, который будет делать то же самое:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    ActiveWindow.Zoom = Application.Max(ActiveWindow.Zoom, 100) 
End Sub

источник

2012-01-30 15:31:35 JimmyPena

Код Excel VBA для принудительного определенного уровня масштабирования

ответ

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