Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66857 / 76733 ←次へ | 前へ→

【14435】Re:Microsoft Agentを使って「はじめまし...
回答  H. C. Shinopy  - 04/5/28(金) 22:42 -

引用なし
パスワード
   久し振りにExcel掲示板を見に来ました。
Agentのソフトを新たにインストールしたそうですが、
KobasanさんのOSは98Meより前のバージョンですか?

http://www6.plala.or.jp/MilkHouse/practical/contents312/contents31201.html
上記によると、「Windows2000以上、WindowsMe以上では 
はじめからインストールされているようですので、・・・」とあります。

私の環境はWindowsXP完全インストール状態・Excel 2002ですので、
(そのためか、特にAgentのインストール作業というものはしていません。)
Kobasanさんの所とは環境が違うのですが、
参考までにということで、書き込みしておきます。

MilkHouseさんの所を拝見しましたが、
何やら大掛かりなマクロを作っているようです。
[NEXT]していくと、「鋭意製作中」が出てきますね。

下記のマクロは、以前Word2002上で作ったものですが、
Excel2002でも動くのを確認しました。
マクロを実行すると、魔法使いのマーリンが表示されて、
「処理が終了しました。」としゃべります。

「myChar.Speak "処理が終了しました。"」を
「myChar.Speak "はじめまして"」に変更すれば、
「はじめまして」と音声出力をします。

キャラクターの変更について
「Rem キャラクターを読み込む。」にある 「myAgent.Characters.Load "Agent"」を削り、
その上の行の 「Rem」を取り除いて、「〜.acs」ファイルの保存先を指定して下さい。
KobasanさんはGenieを使われるようですので、例えば、
Genie.acsがC:\WINDOWS\msagent\charsフォルダにあれば、
myAgent.Characters.Load "Agent", "C:\WINDOWS\msagent\chars\Genie.acs"」とします。
また、Officeアシスタントの冴子先生も同じように指定できますが、
音声出力機能がないようで、表示はされますが、しゃべってくれません。

[参考文献]
Microsoft Corporation著・(株)ドキュメントシステム訳
日経BPソフトプレス発行
「Microsoft Agent プログラミング技法」(マイクロソフト公式解説書)
定価 \4600 + 悪税

[以下、マクロ]
Sub MarlinAnnounceEnd()
 Rem *----*----*  *----*----*  *----*----*  *----*----*
 Rem 参照設定:Microsoft Agent Control 2.0
 Rem *----*----*  *----*----*  *----*----*  *----*----*
 Dim myAgent As Agent
 Dim myChar As IAgentCtlCharacterEx
 '
 Rem Microsoft Agent オブジェクトを生成する。
 Set myAgent = CreateObject("Agent.Control")
 myAgent.Connected = True
 '
 Rem キャラクターを読み込む。
 Rem myAgent.Characters.Load "Agent", "C:\WINDOWS\msagent\chars\Christabel.acs"
 myAgent.Characters.Load "Agent"
 Set myChar = myAgent.Characters("Agent")
 '
 Rem 言語の設定
 Rem myChar.LanguageID = &H409 ' msoLanguageIDEnglishUS ' アメリカ英語
 myChar.LanguageID = msoLanguageIDJapanese ' 日本語
 '
 Rem キャラクターを表示する。
 myChar.MoveTo 200, 200
 myChar.Show
 myChar.Play "GetAttention"
 myChar.Play "Greet"
 myChar.Play "Announce"
 '
 myChar.Speak "処理が終了しました。"
 MsgBox "処理が終了しました。"
 '
 Set myAgent = Nothing
 Set myChar = Nothing
End Sub

3 hits

【14220】Microsoft Agentを使って「はじめまして」としゃべらすには Kobasan 04/5/23(日) 23:27 質問
【14230】Re:Microsoft Agentを使って「はじめまして... IROC 04/5/24(月) 10:41 回答
【14260】Re:Microsoft Agentを使って「はじめまして... Kobasan 04/5/24(月) 20:40 質問
【14265】Re:Microsoft Agentを使って「はじめまして... IROC 04/5/25(火) 9:24 回答
【14326】Re:Microsoft Agentを使って「はじめまして... Kobasan 04/5/26(水) 5:51 質問
【14329】Re:Microsoft Agentを使って「はじめまして... IROC 04/5/26(水) 9:11 回答
【14330】Re:Microsoft Agentを使って「はじめまして... IROC 04/5/26(水) 9:14 回答
【14364】Re:Microsoft Agentを使って「はじめまして... Kobasan 04/5/26(水) 22:13 お礼
【14372】Re:Microsoft Agentを使って「はじめまし... IROC 04/5/27(木) 10:29 回答
【14391】Re:Microsoft Agentを使って「はじめまし... kein 04/5/28(金) 0:09 発言
【14392】Re:Microsoft Agentを使って「はじめまし... kein 04/5/28(金) 0:12 発言
【14435】Re:Microsoft Agentを使って「はじめまし... H. C. Shinopy 04/5/28(金) 22:42 回答
【14444】Re:Microsoft Agentを使って「はじめまし... Kobasan 04/5/29(土) 8:54 お礼

66857 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free