Полоса прокрутки не будет скрываться или перемещаться в Worksheet_Activate ()

У меня есть элемент Worksheet_Activate() в коде для листа, который изменяет размер листа каждый раз, когда он активирован, и скрывает полосы прокрутки. По какой-то непонятной причине, когда я запускаю его как часть другого суб (используя « Sheets("MENU").Activate »)« ActiveWindow.DisplayVerticalScrollBar = False »не работает! Как и в случае, вертикальная полоса прокрутки остается видимой.

Хуже того, когда я устанавливаю « .width » позже, полоса прокрутки не перемещается вместе с ней! Таким образом, я получаю плавающую полосу прокрутки 20 или около того пикселей со стороны окна приложения.

Хуже того, когда я делаю перерывы в коде, чтобы пройти через него, он работает нормально.

Я в тупик.

Вот соответствующий код:

 Sub Worksheet_Activate() With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False ' <-- this guy right here... End With With Application .WindowState = xlNormal ' can't resize maximized! .Left = 100 ' as soon as I do this, things go sideways .Width = 570 .Top = 50 .Height = 230 End With End Sub 

Я подумал, что, возможно, это была проблема с слишком быстрым выполнением кода, поэтому я поставил пару пауз с

 Application.Wait (Now + TimeValue("00:00:01")) 

Но это, похоже, не помогает.

Я могу взломать свой путь, ActiveWindow.DisplayVerticalScrollBar = False еще один « ActiveWindow.DisplayVerticalScrollBar = False » в sub до активации окна, но затем я избегаю проблемы, а не исправляю ее.

Interesting Posts

EXCEL Array SUM IF уникальные комбинации нескольких критериев

Я хочу сравнить два списка в разных листах в Excel, чтобы найти любые дубликаты

Макрос защиты паролем не будет работать

как получить значение другой ячейки

Именованные диапазоны удалены при обновлении

VBA – Суммы с ошибкой «Number Stored in Text»

CDbl и десятичные разделители в VB .NET. Есть ли способ обойти региональные настройки?

Форматирование диапазона столбцов на основе их названия – Excel

Пользовательская функция Excel, не вызываемая при обновлении соты

Вставка значений в Excel не формулы из макроса

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

Получать имена столбцов из файла excel определенного листа с использованием c # с OleDbConnection

Не удается сохранить другую книгу

Создание имени рабочей матрицы в VLOOKUP-Function из Cell-Value

значения float фильтра в файле excel с использованием python

Давайте будем гением компьютера.