Excel VBA質問箱 IV

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

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


13125 / 13644 ツリー ←次へ | 前へ→

【6897】ExcelにWAVEファイルを貼り付ける...? 七瀬 03/8/8(金) 23:52 質問
【6900】Re:ExcelにWAVEファイルを貼り付ける...? ichinose 03/8/9(土) 8:55 回答
【6907】出来ました! 七瀬 03/8/9(土) 22:48 お礼

【6897】ExcelにWAVEファイルを貼り付ける...?
質問  七瀬 E-MAIL  - 03/8/8(金) 23:52 -

引用なし
パスワード
   みなさん、こんばんは。

ここに↓

  http://www.geocities.co.jp/SiliconValley-Cupertino/5678/OSS.htm

有りました、 Site_KeysというExcelソフトのシートの端っこにラベルらしきものに
WAVEファイルが貼り付けてありました???

それを演奏してるのですがどうやったら出来るのか教えてください。

宜しくお願いします。

【6900】Re:ExcelにWAVEファイルを貼り付ける.....
回答  ichinose  - 03/8/9(土) 8:55 -

引用なし
パスワード
   ▼七瀬 さん:
おはようございます。

>  http://www.geocities.co.jp/SiliconValley-Cupertino/5678/OSS.htm
   ↑がどうしているのかはわかりませんが・・・・。

WAVEファイルへのシートへの貼付は、
ワークシートメニューバーの「挿入」----「オブジェクト」から
ファイルタブを選択し、WAVEファイルを選択すればOleobjectとして、貼り付きます。

後は、オブジェクトを選択して、「右クリック」---「再生」の操作で再生。
この操作をマクロの記録で行えばコードが記録されます。

試してみて下さい。

【6907】出来ました!
お礼  七瀬 E-MAIL  - 03/8/9(土) 22:48 -

引用なし
パスワード
   ▼ichinoseさんありがとうございました。


>>  http://www.geocities.co.jp/SiliconValley-Cupertino/5678/OSS.htm
>   ↑がどうしているのかはわかりませんが・・・・。

    ↑は、ScrollAreaプロパティでシートの領域を制限されていましたので、その制限を外したところ、ラベルらしきものにスピーカーの絵が付いている物が有ってそれをダブルクリックするとWAVEファイルが演奏されると言うものでした。(ちょっと表現が下手ですが...)

ichinoseさんからの回答にヒントを得て同じものを作ることが出来ました。

ワークシートメニューバーの【挿入】→【オブジェクト】→【新規作成】タブ→【WAVEサウンド】→【OK】でファイルを選択すると《サウンドオブジェクト》が表示されます。
【編集】→【ファイルの挿入】にてファイルを指定すればシート上にスピーカーの絵の付いたラベルらしきものが表示されます。演奏するコードはマクロの記録で行った結果、下記のコードになりました。上記と同じことが出来ました。


    ActiveSheet.Shapes("Object 1").Select
    Selection.Verb Verb:=xlPrimary

ありがとうございました。

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