Управление встроенным прогрессбаром в Excel

[ZlydenGL]

Добрый день, уважаемые товарищи и иже с ними

Для визуализации стадии отработки приложения VBA в Excel хочу вывести пользователю какой-то прогрессбар, в идеале - встроенный в Excel. Только вот не могу найти, как к нему обратиться. Может кто сталкивался?

Пользую Office 2k3

[Pavel55]

http://www.progz.ru/forum/index.php?sho ... rogressbar
http://www.progz.ru/forum/index.php?sho ... rogressbar
http://www.progz.ru/forum/index.php?sho ... rogressbar

[ZlydenGL]

Pavel55, огромное спасибо!!! БОльше всего понравился вот этот способ:

http://www.vbrussian.com/Article.asp?msg=1&ID=105

Просто, доступно, безглючно (почти ) ИМХО - достойно для подключения в проект

Еще раз - 10х!!!

[KL]

Еще до кучи:

Johnn Walkenbach: http://j-walk.com/ss/excel/tips/tip34.htm
Chip Pearson: http://www.cpearson.com/excel/Progress.htm
Ole P. Erlandsen: http://erlandsendata.no/english/index.p ... atusbarmsg
Ole P. Erlandsen: http://erlandsendata.no/english/index.p ... rogramming
Andy Pope: http://www.andypope.info/vba/pmeter.htm
Rob Van Gelder: http://vangelder.orcon.net.nz/excel/progressbar.html
Dick Kusleika: http://www.dailydoseofexcel.com/archive ... gress-bar/
Stephen Bullen: http://www.bmsltd.ie/Excel/Default.htm

[ZlydenGL]

KL, спасибо за ссылки

Больше всего понравились варианты
http://vangelder.orcon.net.nz/excel/progressbar.html
http://erlandsendata.no/english/index.p ... rogramming (вообще чума!!! Сверхпросто! Как сам не додумался?)

Остальное - реализация через внешние библиотеки или юзверьформы, от этого стараюсь по максимуму уходить.

[ZlydenGL]

В результате собрал себе такой класс (вдруг кому пригодится?)

В константы Const cProgressWidth и cProgressLeft заносится ширина прогрессбара и отступ от левого края соответственно.

Пример использования:

Код: Выделить всё

Set mypgb = New clsPrgBar

With mypgb
     .Max = Application.Worksheets.Count
     .Min = 0
     .Text = "Выполняю"
End With

For Each WS In Activeworkbook.Worksheets
     ...
     mypgb.Value = mypgb.Value + 1
     mypgb.ShowProgress
Next WS

Set mypgb = Nothing