Labelでプログレスバーの表示
いつも大変お世話になっております。
動作が重いマクロ、プログラムが多いため、
プログレスバーを表示させたいと思っています。
フォームを20個以上準備しており、
それに対し
プログレスバーを使いたいのが10個程度であり、
今後増えるかもしれません。
そのため、標準モジュールを利用し、簡単に
プログレスバーを設定できないかと思っています。
'===================
【標準モジュール Module1】
Sub Bar_progressBarData(Byval UserFormName as string, Byval MaxData as Long,LabelName as string)
'UserFormName 引用するところ？のユーザーフォーム名
'MaxData バーの最大値設定
'LabelName バー表示するラベル名
'ProgressBarの初期設定などをやる
End sub
'-------------------------
Sub Bar_progressBarInt(Byval UserFormName as string, Byval MaxData as Long,LabelName as string)
'UserFormName 引用するところ？のユーザーフォーム名
'MaxData バーの最大値設定
'LabelName バー表示するラベル名
'ProgressBarの値を増やしていく（増加させていくプログラム）
End sub
'=================
【UserForm Test】
Sub DataChangeGraph()
'ループが多いデータ
Call Bar_progressBarInt(Me.Name,10,"Label1")'バーの値を増加させていく
End Sub
Private Sub UserForm_Initialize()
Call Bar_progressBarData(Me.Name,10,"Label1")'初期設定（例として、max10にしました)
End Sub
Maxの値、プログレスデータに使用する値は
グローバルに設定してしまうというのも楽かもしれません。
しかし、この続きの肝心なプログラムが分かりません。
「プログレスバーの作り方」
h ttp://www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm
このサイトが良いと評判でしたので、
見ましたが何をしているのか良く分かりませんでした。
Widthを設定？
Dim sngBarMaxWidth As Single？
そして、私がやりたいこととは少し違うようです。
私がやりたいのは、フォーム上に毎回プログレスバー用のプログラムを書くのが面倒だったので、
標準モジュールとしてSubプロシージャを作成（日本語？
そして、それを引用してプログレスバーの設定を簡単に終わらせる
ということがしたかったのです。
できれば、ラベルなど
Excelに標準で備わっているものを使用したいと思っています。
プログレスバー専用のツール（参照設定などを用いるもの）
はその後にエラーが出たとき困るので、使いたくありません。
なんとなく伝わったでしょうか？
回答よろしくお願い致します。
Excel2003 VBA
補足
一応これなのですが、左右に広がるようなプログレスバーでは無く、ボックスが増えていくプログレスバーにしたいのですが・・・