#065 Officeアシスタントで"メッセージボックス"(その2) VBA

Officeアシスタントの「バルーン」を使って「はい/いいえ」や「OK/キャンセル」などの選択を行うメッセージボックスを表示し、そこで選択されたボタンを取得する例です。
Officeアシスタントの使用例'Officeアシスタントを表示します
Assistant.Visible = True

'バルーンの表示内容を設定します
With Assistant.NewBalloon
  '電球のアイコンを表示
  .Icon = msoIconTip
  'メッセージのタイトル
  .Heading = "保存の確認"
  'メッセージ
  .Text = "変更された内容を保存しますか?"
  'はい/いいえボタンを表示
  .Button = msoButtonSetYesNo
  'バルーンを表示し、返り値をチェックします
  If .Show = msoBalloonButtonYes Then
    'はいが選択されたとき
    MsgBox "[はい]が選択されました!"
  Else
    'いいえが選択されたとき
  End If
End With

'Officeアシスタントを非表示にします
Assistant.Visible = False

※Officeアシスタントを使用する場合にはまず「Officeオブジェクトライブラリ」への参照設定を行う必要があります。上記のコードを実行する前にAccessのメニューの[ツール]-[参照設定]を選択して、[参照可能なライブラリファイル]の一覧の中の"Microsoft Office 8.0 Object Library"をチェックしてください。
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved