Почему превосходство не скрывает мою форму?

Я использую этот код ниже …

Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long) Sub blink() Sleep 500 ActiveSheet.Shapes("the_shape").Visible = False Sleep 500 ActiveSheet.Shapes("the_shape").Visible = True End Sub 

я что-то упускаю?

Это довольно странно. Добавление DoEvents разрешило проблему. Я предполагаю, что Sleep приостанавливает поток до того, как Excel сможет скрыть форму.

 Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long) Sub blink() Sleep 500 ActiveSheet.Shapes("the_shape").Visible = False DoEvents Sleep 500 ActiveSheet.Shapes("the_shape").Visible = True End Sub 
Interesting Posts

Используйте значение ячейки как

PHP обнаруживает диалоговое окно «Открыть / загрузить»

Созданная книга Excel 2013 vba открывается для пользователей в разделе «Защищенный просмотр»,

Удаление специальных символов из нескольких файлов csv с использованием командного файла

Функциональность гиперссылки в excel

ExcelVBA: попытка создания пользовательской формы, которая ищет и считывает данные

Выполнение приложения в активном сеансе и вне сеанса 0 с помощью службы IIS

Сравнение столбцов Excel 2: дублировать в одном столбце, но уникально как пара

Измерение времени загрузки Excel

C # считывает данные из результатов файла excel в ###

Необходимо найти записи в одной колонке excel, которые не находятся в другом столбце

Как вставить разделитель тысяч в xlsx с помощью xlsxwriter module?

Запрос экспорта экспорта Excel из Access

Сортировка инвентаря Excel VBA

C # / AutoCAD .NET API: чтение листов Excel и рисования объектов на основе данных

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