新規にユーザーフォームを挿入して下さい。今回はオフィースアシスタントを
使ってみましょう。アシスタントってあのイルカとかわんちゃんのことです。
え？冴子先生って？(^o^)僕はオフィース９７ではスーパーわん太で、２０００
ではまんまちゃんです。
ユーザーフォームにコマンドボタンとテキストボックスを配置して下さい。
コマンドボタンのプロパティウインドウのキャプションを「まんまに聞いて」
とします。みなさんのアシスタントがイルカのカイルなら、「カイルに聞いて」
として下さい。アシスタントはコードで登場させます。コマンドボタンをＷクリック
してコード画面にして下さい。コードはこう書きます。
まず、サブルーチンの宣言のすぐ下に、With～とあります。そしてEnd
Subの上に
End Withとあります。これはWith～End Withステートメントという文で、この中に
ある「.」で始まる各行のオブジェクト名を省略することが出来ます。例えば３行目の
.Heading = ～は、Assistant.NewBalloon.Heading = ～という意味になります。
Assistant.NewBalloonがオブジェクト名となります。このときのオブジェクト名は
Withの後に続くものです。だから、
With Label1.Font
.Size = 12
.Bold = True
.Italic = True
.Underline = True
End With
と書けば、これは
Label1.Font.Size = 12
Label1.Font.Bold = True
Label1.Font.Italic = True
Label1.Font.Underline = True
と同じ意味になります。
Assistant.NewBalloon.HeadingやAssistant.NewBalloon.Textでアシスタントを
呼び出し、吹き出しの中に文章を書くことが出来ます。Assistant.NewBalloon.Button
でＯＫボタンをクリックしたときの動作を決めます。ここでは
msoButtonSetOkCancel
を指定しています。これは読むとだいたい意味がわかりますよね。マウスボタンで
ＯＫボタンをクリックするとアシスタンをキャンセルしなさいってことになります。
Assistant.NewBalloon.Showで吹き出しの中のチェックボックスをチェックしたときの
動作を示します。
それでは実行してみましょう。コマンドボタンをクリックしてアシスタントを表示
させて下さい。チェックボックスをチェックしてからＯＫボタンを押すと、会議室名が
テキストボックスに表示されましたか？
ご意見・ご感想は
