Визуализация работы макроса

[zander]

Есть такой код
Sub WatchOverFile()
StartingCheking = True
Do While StartingCheking = True 'бесконечный цикл

'Do While NewFileSizeSignal = FileSizeSignal
NewFileSizeSignal = CreateObject("scripting.filesystemo bject").GetFile(Signal).Size
If NewFileSizeSignal > FileSizeSignal Then DoFile: FileSizeSignal = NewFileSizeSignal
'If NewFileSizeSignal > FileSizeSignal Then Call Sheets("Лист1").ChekMyQuantity
t = Timer: While t + ChekTimeFrame > Timer: DoEvents: Wend
Loop
End Sub

Можно как то органзовать индикацию работы макроса (gif картинка или еще что то) Что бы видно было что макрос пашет и что он остановлен?

[EducatedFool]

А ты не пытался воспользоваться поиском?

В теме с точно таким же названием приведён пример.

Можно просто выводить информацию в строку состояния.

(добавлено)
У себя на сайте выложил последнюю версию прогресс-бара: http://excelvba.ru/tools/ProgressIndicator

[Волк]

Что именно ты хочешь видеть что программа работает или макрос?

[zander]

Не сказал, что поиск смотрел, просто у меня чуть другой момент, там юзер форма и разовый процесс. А у меня цикл беспрерывный и может так работать целый день. Важно кинуть взгляд на экран и видеть что процесс не прерван. Думал может просто какую то картинку можно выводить на лист, или лучше мигающая ячейка ....

[Волк]

Так сделай на листе кнопку с картинкой которая при нажатии меняется на другую. Или в макросе пропиши строчку что при запуске отображается такая картинка(на форме) и напиши процедуру которая через какое-то время будет менять ее и это повторяется пока цикл незакончится.

[zander]

То что макрос находится в состоянии вызванном кодом
StartingCheking = True
Do While StartingCheking = True 'бесконечный цикл
ну и понимат когда процесс останвлен

[zander]

Сообщение от Волк

...Или в макросе пропиши строчку что при запуске отображается такая картинка(на форме) и напиши процедуру которая через какое-то время будет менять ее и это повторяется пока цикл незакончится.

А как это может выглядеть в виде кода?

[EducatedFool]

Всё можно сделать гораздо проще:

Sub СлежениеЗаФайлом()
    If Not БесконечныйЦиклАктивирован Then Exit Sub
    Application.StatusBar = Now & "  Ведется отслеживание изменений в файле"
    
    If Not ПоискИзмененийВременноОтключён Then
        НовыйРазмерФайла = CreateObject("scripting.filesystemobject").GetFile(ИмяФайла).Size
        If НовыйРазмерФайла > РазмерФайла Then ОбработкаФайла: РазмерФайла = НовыйРазмерФайла
    End If
    If БесконечныйЦиклАктивирован Then Application.OnTime _
       Now + TimeSerial(0, 0, ВременнойИнтервалМеждуПроверками), "СлежениеЗаФайлом"
End Sub


Sub ЗапускЦикла()
    БесконечныйЦиклАктивирован = True
    СлежениеЗаФайлом
End Sub

Sub ОстановЦикла()
    БесконечныйЦиклАктивирован = False
    Application.StatusBar = Now & "  Отслеживание изменений в файле остановлено"
End Sub

Каждую секунду текст в строке состояния Excel будет обновляться.
При остановке макроса в строке состояния Excel будет зафиксировано время останова макроса.