2008年 11月 05日
Excelのアシスタントをいじってみました
|
CADツールではないですが、、、
先日とある方面からExcelのアシスタントを活用したマクロ
(というより簡易ゲーム?)を見ました。
「えーっ!アシスタントっていじれるのかー!?」
ってのが最初の感想。
色々調べていくと
「なーんだ、こんな簡単なんだ」
ってな具合でした。
知らない人はいないと思いますが、ヘルプを使うときに出てくる
こんなヤツです。
アシスタントはイルカの他に数種類あります。
VBAの話になりますが、
まずはアシスタントを表示するところから。
「Assistant」オブジェクトを使用します。
With Assistant
.On = True
.Visible = TrueEnd With
アシスタントを使えるようにし、表示をさせます。
次にアシスタントにものを言わせる部分です。
今度は「Assistant.Balloon」オブジェクトを使用します。
With Assistant.NewBalloon
.Text = "今日は" & Format(Date, "gggee年mm月dd日") & "です。"
.Animation = msoAnimationWritingNotingSomething
.Show
End With
ふき出しに表示する内容を Textプロパティに入れます。
Showメソッドで実際にメッセージを出します。
Animationプロパティはアシスタントに特定の動きをさせるためのプロパティです。
上記の文を実行するとアシスタントが
「今日は平成20年11月05日です。」
などと今日の日付を表示します。
ここで紹介したサンプルを弊社HPにアップしています。
興味のある方は、以下のリンクからダウンロードしてください。
VBAのソースも見れますので参考になれば幸いです。
「Excelアシスタント設定」のコーナーにあるリンク「Download」から
ダウンロードできます。
<弊社CADツールのページへ>
by kentts
| 2008-11-05 17:04
| 小ネタ