Excel VBAでプログレスバーを作成する方法を教えてください。

質問

Excelアプリをやっているのですが、データベースからのデータ更新が多く、時間がかかってしまいます。私はユーザーフォームでプログレスバーを作りたいと思い、データが更新されているときにポップアップ表示されます。私が欲しいバーは、小さな青いバーが右と左に動き、更新が完了するまで繰り返され、パーセンテージは必要ありません。

私は、私が progressbar を使うべきなのは分かっているのですが、しばらく試してみましたが、うまくいきません。

私の問題は progressbar コントロールで、バーの「進行状況」を見ることができないことです。フォームがポップアップしたときに完了するだけです。私はループと DoEvent を使っていますが、うまくいきません。しかも、1回だけでなく、繰り返し処理を実行させたいのです。

どのように解決するのですか？

過去にVBAのプロジェクトで、私は背景が色付けされたラベルコントロールを使用し、進捗状況に基づいてサイズを調整しました。同様のアプローチを持ついくつかの例は、次のリンクで見つけることができます。

1. http://oreilly.com/pub/h/2607
2. http://www.ehow.com/how_7764247_create-progress-bar-vba.html
3. http://spreadsheetpage.com/index.php/tip/displaying_a_progress_indicator/

こちらはExcelのオートシェイプを使ったものです。

http://www.andypope.info/vba/pmeter.htm