VBAにてメッセージボックスを最前面に表示させる

エクセルVBAにて、指定時刻になったらメッセージボックスを、最前面に表示させるプログラムを作成中です。
時刻の指定は、ontimeメソッドの使用でできました。

しかし、最前面（他のアプリケーションを開いていても、メッセージボックスが手前に表示される）がどうしてもできません。。

VBだとAPI関数を使って、フォームを常に最前面表示はできました。

メッセージボックスで、このような表示方法は実現可能なのでしょうか？
どなたか教えて下さい。よろしくお願いします。

No.4 回答者： machongola 回答日時： 2009/04/14 12:01

　こんにちは。

　直接WIN32APIサイドのメッセージボックスを呼び出せば、最前面スタイルを指定出来ます。
　http://wisdom.sakura.ne.jp/system/winapi/win32/w …

　以下では駄目でしょうか？

'プロトタイプ
Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long

'OKボタンを保有するフラグ
Public Const MB_OK = &H0

'最前面フラグ
Public Const MB_TOPMOST = &H40000

'呼び出し
Public Sub TestTopMostMsgBox()

Dim lpText As String
Dim lpCaption As String

lpText = "テスト"
lpCaption = "最前面メッセージボックス"

MessageBox 0, lpText, lpCaption, MB_OK Or MB_TOPMOST

End Sub

この回答へのお礼

APIは調べましたが、まさかこんな方法があるとは。
ありがとうございます！
正に、理想通りの実行結果が得られました。

お礼日時：2009/04/14 22:11

No.3 回答者： hana-hana3 回答日時： 2009/04/13 22:25

＞VBだとAPI関数を使って、フォームを常に最前面表示はできました。

ＶＢＡでもこの方法しかありません。
他のアプリが最前面ではＶＢＡの関知する所ではないので、エクセル上に表示する事しか出来ません。

No.2 回答者： OKwebb 回答日時： 2009/04/13 22:09

システムモーダルで。

rt = msgbox("メッセージ", vbOKOnly + vbSystemModal)

No.1 回答者： n-jun 回答日時： 2009/04/13 21:15

経験ないですけど。

Excelをアクティブにしてから表示したら、最前面には来ないでしょうかね？
⇒他のアプリの後ろとは、そのアプリがアクティブな状態なわけですよね？

この回答へのお礼

＞n-junさん
今回は、エクセルをアクティブにしてない状態でも、メッセージボックスを最前面に表示させないといけないのです。。

エクセルをアクティブにしたら最前面には来ます。
そうです。

お礼日時：2009/04/13 21:40