Excel VBA質問箱 IV

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

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


11740 / 13646 ツリー ←次へ | 前へ→

【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 お礼[未読]

【14220】Microsoft Agentを使って「はじめまして...
質問  Kobasan  - 04/5/23(日) 23:27 -

引用なし
パスワード
   Microsoft AgentとVBAを使って、「はじめまして」としゃべらす方法を
どなたか教えてください。
Microsoftのサイトから、Microsoft Agentの以下のファイルを
ダウンロードし、インストールしましたがその使い方が分かりません。
1.コアコンポーネントMSagent.exe    
2.言語コンポーネント(日本語)AgtX0411.exe
3.キャラクターファイルGenie.exe    
4.スピーチエンジン(日本語)lhttsjpj.exespchapi.exe
5.スピーチコントロールパネルspchcpl.exe

【14230】Re:Microsoft Agentを使って「はじめまし...
回答  IROC  - 04/5/24(月) 10:41 -

引用なし
パスワード
   Excel ではなく、Microsoft Agent の使い方についてのご質問ですか?

Excel VBA で exeファイルを実行する方法なら分かりますけど・・・

【14260】Re:Microsoft Agentを使って「はじめまし...
質問  Kobasan  - 04/5/24(月) 20:40 -

引用なし
パスワード
   Excel 上で、Microsoft Agent を使いたいのです。
Excel VBA で exeファイルを実行する方法でもかまわないのですが。
何をしたいのかというと、
B5:B10のセル範囲に入っているデータをPCに読み上げさせて、データの確認をしたいのです。

【14265】Re:Microsoft Agentを使って「はじめまし...
回答  IROC  - 04/5/25(火) 9:24 -

引用なし
パスワード
    >Excel VBA で exeファイルを実行する方法でもかまわないのですが。

これなら、Shell関数でできます。

  Shell "c:\windows\notepad.exe"

【14326】Re:Microsoft Agentを使って「はじめまし...
質問  Kobasan  - 04/5/26(水) 5:51 -

引用なし
パスワード
   >これなら、Shell関数でできます。
>  Shell "c:\windows\notepad.exe"
Shell関数は使ったことがないので、これだけではセルのデータを読み上げさせるところまでいけません。それから、これはShell関数とMicrosoft Agentを組み合わせて使うと言うことでしょうか。

【14329】Re:Microsoft Agentを使って「はじめまし...
回答  IROC  - 04/5/26(水) 9:11 -

引用なし
パスワード
   Excel VBA の使用方法なら少しは分かりますが、
Microsoft Agent は使ったことがないので分からないです。

shell関数は、プログラムを起動するための関数です。


このあたりを読んでみるとメソッドやプロパティ等について
書いてあるかと思います。

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msagent/agentstartpage_7gdh.asp

【14330】Re:Microsoft Agentを使って「はじめまし...
回答  IROC  - 04/5/26(水) 9:14 -

引用なし
パスワード
   http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msagent/pacontrol_2v8s.asp

【14364】Re:Microsoft Agentを使って「はじめまし...
お礼  Kobasan  - 04/5/26(水) 22:13 -

引用なし
パスワード
   IROC さん、いろいろと教えてくださり有り難うございました。
ご指摘のホームページを見ると、Microsoft Agentのメソッド
やプロパティ,ActiveX等についていろいろと書いてありまし
た。かんなり参考になる情報がありました。
英語なので時間がかかるかもしれませんが、色々試しながら
やってみます。

【14372】Re:Microsoft Agentを使って「はじめまし...
回答  IROC  - 04/5/27(木) 10:29 -

引用なし
パスワード
   もうすこし検索してみましたけど、あまり情報がないですね。
海外だと色々なツールが販売されているようですが・・。

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/modcore/html/
deovrmicrosoftagentactivexcontrolvsofficeassistant.asp

つなげてください。

http://www.amazon.co.jp/exec/obidos/ASIN/4891000139/jikoman-22/249-8814152-9319559

http://www.amazon.co.jp/exec/obidos/ASIN/0735605025/jikoman-22/249-8814152-9319559

【14391】Re:Microsoft Agentを使って「はじめまし...
発言  kein  - 04/5/28(金) 0:09 -

引用なし
パスワード
   ↓ここに日本語で丁寧な解説が出てます。
http://www6.plala.or.jp/MilkHouse/practical/contents312/contents31202.html

【14392】Re:Microsoft Agentを使って「はじめまし...
発言  kein  - 04/5/28(金) 0:12 -

引用なし
パスワード
   一番最後まで読んだら、NEXT のリンクをクリックしてみて下さい。
なお、BACK するとコンポーネントのダウンロード先や、ダウンロード & 展開の
方法などが解説されています。

【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

【14444】Re:Microsoft Agentを使って「はじめまし...
お礼  Kobasan  - 04/5/29(土) 8:54 -

引用なし
パスワード
   keinさん、H. C. Shinopy さんへ
私はXPと98SE(ノートPC)を使っています。
MilkHouseさんのホームページをみたり、H. C. Shinopyさんのサンプルを
利用したりするとMicrosoft Agentが短時間に楽に使えるようになりました。
大変助かりました。有り難うございます。

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