|
BOTTA さん こんにちは。
横レス失礼します。
書いちゃったんで、BOTTAさんとかぶる所も有りますが載せます。
1、
初めにユーザーフォームを作ってラベルに「マクロ実行中…」書いておく。
フォームモジュール
Private Sub UserForm_Activate()
DoEvents
メインマクロ名
Unload Me
End Sub
標準モジュール
Sub 実行マクロ()
UserForm1.Show
End Sub
Sub メインマクロ名()
Application.Wait Now + TimeValue("00:00:03")
End Sub
2、
Application.DisplayStatusBar = True
Application.StatusBar = "マクロ実行中…"
'やりたいマクロをここに書く
Application.Wait Now + TimeValue("00:00:03")
Application.StatusBar = ""
Application.DisplayStatusBar = False
3、
Set myShape1 = ActiveSheet.Shapes.AddTextEffect(msoTextEffect11, _
"マクロ実行中…", "MS ゴシック", 28, msoFalse, msoFalse, 120, 100)
DoEvents
'やりたいマクロをここに書く
Application.Wait Now + TimeValue("00:00:03")
myShape1.Delete
Set myShape1 = Nothing
4、
3のように毎回ワードアートを作るのは嫌な場合、初めに作っておいて名前を「実行表示」とでも付けておき、それを表示させたり隠したりする方法。
ActiveSheet.Shapes("実行表示").Visible = True
DoEvents
DoEvents '← 私のPCは、トロイので2個必要でした。
'やりたいマクロをここに書く
Application.Wait Now + TimeValue("00:00:03")
ActiveSheet.Shapes("実行表示").Visible = False
|
|