HOME
VBA では、どのようなアイコンをダイアログに表示するかは、定数として定義されています。アイコンの種類を指定する場合は、定義済みの定数、または値を指定します。
VBA では、どのようなアイコンをダイアログに表示するかは、定数として定義されています。アイコンの種類を指定する場合は、定義済みの定数、または値を指定します。
定義済み定数 | 値 | ダイアログに表示されるアイコン |
---|---|---|
vbCritical | 16 | 警告 |
vbQuestion | 32 | 問い合わせ |
vbExclamation | 48 | 注意 |
vbInformation | 64 | 情報 |
ダイアログにアイコンを表示する場合、ボタンの定数に加算して MsgBox 関数の引数として指定します。
Dim ans As Integer
ans = MsgBox("メッセージ", vbOKCancel + vbCritical, "タイトル")
If ans = vbOK Then
Debug.Print ("「OK」が押されました")
ElseIf ans = vbCancel Then
Debug.Print ("「キャンセル」が押されました")
End If
Dim ans As Integer
ans = MsgBox("メッセージ", vbOKCancel + vbQuestion, "タイトル")
If ans = vbOK Then
Debug.Print ("「OK」が押されました")
ElseIf ans = vbCancel Then
Debug.Print ("「キャンセル」が押されました")
End If
Dim ans As Integer
ans = MsgBox("メッセージ", vbOKCancel + vbExclamation, "タイトル")
If ans = vbOK Then
Debug.Print ("「OK」が押されました")
ElseIf ans = vbCancel Then
Debug.Print ("「キャンセル」が押されました")
End If
Dim ans As Integer
ans = MsgBox("メッセージ", vbOKCancel + vbInformation, "タイトル")
If ans = vbOK Then
Debug.Print ("「OK」が押されました")
ElseIf ans = vbCancel Then
Debug.Print ("「キャンセル」が押されました")
End If