プログレスバー
June 17, 2025
どうやらOfficeの64bit版がインストールされた模様。
それでVBAで使われているProgressBarコントロールが64bit版ではサポートされてないとか、なんとか。
マジか？プログレスバーって使われてないの？マイナーなの？
▲ プログレスバーがエラーで使えない！
▲ Office 64bit版ではProgressBar Controlが使えない
という事で調査開始。
いつサポート切られるかわからん、自作しろ。だって。
下の所にあるStatusバーに『■■□□□□』四角を並べてバーっぽく表示するか。
それ用のFormを作るか。
簡単で手っ取り早いのは前者。
ちょっと見た目重視なら後者。かな。
▲ ステータスバーに四角の文字をバー代わりに
削除してほっとこうかと思ったけど、今後仕事で使っているVBA類が次々にエラーになる事を考えると対策は練っておこうという事で作ってみた。
では、作り方。
作るのがメンドウな方は下記アドレスからモジュールをダウンロードしてインポートしてください。
ダウンロードはコチラから
▲ フォームを作成
続きを読むまずForm（frmProgressBar）を作成。
Frame（fraPBar）を貼り付ける。
Captionを削除。
SpecialEffectを2-fmSpecialEffectSunkenにする。
Widthを200にする。
Label（lblPBar）をフレームの上に貼り付ける。
Captionを削除。
Widthを200にする。（フレームとサイズをあわせる）
BackColorを好きな色に変更。
▲ フォームを作成
モジュール（mdlProgressBarControl）を追加。
下記コードを貼り付ける。
