|
みなさん おはようございます。
>画面のどこかをクリックするかENTERキーを押すかで、処理を再開したいのですが、何か良い方法はありますか?
ではないけど、
CommandBarではどうですか
Sub Show_cmdBar()
cmdBar
Range("A1").ClearContents
End Sub
Sub Auto_Close()
On Error Resume Next
Application.CommandBars("MyMenu").Delete
End Sub
Private Sub cmdBar()
Dim MycmdBar As CommandBar
On Error Resume Next
Application.CommandBars("MyMenu").Delete
Set MycmdBar = Application.CommandBars.Add(Name:="MyMenu", _
temporary:=True, Position:=msoBarTop)
Set btn1 = CommandBars("MyMenu").Controls.Add(Type:=msoControlButton)
With btn1
.Style = msoButtonIconAndCaption
.Caption = "Next"
.FaceId = 59
.OnAction = "macro1"
End With
Set btn2 = CommandBars("MyMenu").Controls.Add(Type:=msoControlButton)
With btn2
.Style = msoButtonIconAndCaption
.Caption = "終了"
.FaceId = 266
.OnAction = "macro2"
End With
MycmdBar.Visible = True 'コマンドバーを表示
Set MycmdBar = Nothing
End Sub
Private Sub macro1()
If Range("A1").Value >= 10 Then Exit Sub
Range("A1").Value = Range("A1").Value + 1
MsgBox "画像の代わり" '画像を表示させるコード
End Sub
Private Sub macro2()
Application.CommandBars("MyMenu").Delete
End Sub
|
|