Типа Прогресс бар!

[WizarD.89]

Добрый вечер! Хочу создать что то на подобии прогресс бара, только без отображения текущего статуса выполнения задачи. Просто что бы пользователь понимал, что сейчас идет выполнение задачи. Мне это видится как полоска, которая двигается с одной стороны на другую или как на youtube визуально показывают то что идет загрузка видео. Как это можно реализовать?

[VictorM]

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

[IgorGO]

СтатусБар написанный тогда, в книга382 сейчас приобрел такой вид:

Public sbStart As String, sbFormat As String, sbProgress As String, sbTotal As Double, sbType As Long

Public Sub SBInit(Total As Double, Optional StartS As String = "", Optional Formats As String = "0#.#%", Optional TypeT As Long = 0)
  sbTotal = Total: sbStart = StartS: sbFormat = Formats: sbType = TypeT: sbProgress = ""
End Sub

Public Sub SBShow(v As Double)
  If 100 * v / sbTotal <= Len(sbProgress) Then Exit Sub
  sbProgress = sbProgress & "I"
  Application.StatusBar = sbStart & IIf(sbType = 0, Format(v / sbTotal, sbFormat), v & " " & sbTotal) & "  " & sbProgress
End Sub

Public Sub SBEnd()
  Application.StatusBar = False
End Sub

Видите необходимо наперед знать общее количество обрабатываемых значений, инициировать переменные, а затем в ходе обработки данных вызывать SBShow, указывая какой элемент обрабатывается.

[WizarD.89]

IgorGO
Спасиббо это мега круто)