Excel VBA質問箱 IV

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

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


39838 / 76738 ←次へ | 前へ→

【42006】Re:メディアプレーヤーについて
発言  ichinose  - 06/8/29(火) 7:47 -

引用なし
パスワード
   ▼カッチャン さん:
おはようございます。

クライアントプログラムの欠点ですね!!

>1. メディアプレーヤーとウィンドーズメディアプレーとは同じ物ではないので
>  しようか?(メディアプレーヤーの開始場面ではWindowsMediaPlayerの
>  表示がされるのに)
これは、違うコンポーネントということでしょうねえ!!

>2. Windows2000、Office2000でウィンドーズメディアプレーを使う方法と
>  WindowsXP,Office2003でメディアプレーを使う方法?。
>3. 出来たら両システムで共用できるようにするには(メディアプレーの使用に
>  こだわらないのですが)どうしたら良いのでしょうか?
上記のふたつのシステムでの共用ということなら、
メディアプレーヤーコントロールを動的にアロケーションするという方法も
考えられます。
つまり、予めユーザーフォームにはメディアプレーヤーコントロールを配置せず、

UserForm_Initialize()イベントプロシジャー等で
コードによって配置する方法です。


これは、私の環境での話です(Win98&Excel2000とWin2000&Excel2002)が、

'================================
Private Sub UserForm_Initialize()
  Dim cc As MSForms.Control
  On Error Resume Next
  Set cc = Controls.Add("MediaPlayer.MediaPlayer.1")
  If Err.Number <> 0 Then
    Set cc = Controls.Add("WMPlayer.OCX.7")
    End If
  cc.Visible = True
End Sub


このようにすると、存在するメディアプレーヤーコントロールが配置されます。
もちろん、その後のコードも配置されたコントロールによってコードを分けなければ
ならない箇所もあると思いますけど。

実際の環境での
"WMPlayer.OCX.7"等のProgidが分からなければ、
シートにメディアプレーヤーコントロールを貼り付ける操作をマクロの記録を行って見てください(コントロールツールボックスのコントロールの選択というアイコンをクリックして、メディアプレーヤーコントロールを探してください)。
これにより、作成されたコード内にProgidを発見できると思います。

但し、環境はどんどん変わっていきますから、上記のコードだと応急処置にしかなりませんけどね。

0 hits

【41987】メディアプレーヤーについて カッチャン 06/8/28(月) 11:45 発言
【41994】Re:メディアプレーヤーについて neptune 06/8/28(月) 14:55 発言
【42006】Re:メディアプレーヤーについて ichinose 06/8/29(火) 7:47 発言
【42031】Re:メディアプレーヤーについて カッチャン 06/8/30(水) 4:02 お礼
【42032】再度:メディアプレーヤーについて(ichinos... カッチャン 06/8/30(水) 5:43 質問
【42037】Re:再度:メディアプレーヤーについて(ichi... ichinose 06/8/30(水) 9:28 発言
【42077】Re:再度:メディアプレーヤーについて(ichi... カッチャン 06/8/31(木) 8:19 質問
【42079】Re:再度:メディアプレーヤーについて(ichi... ichinose 06/8/31(木) 9:09 発言
【42103】Re:再度:メディアプレーヤーについて(ichi... カッチャン 06/9/1(金) 9:45 質問
【42111】Re:再度:メディアプレーヤーについて(ichi... ichinose 06/9/1(金) 13:01 発言
【42162】Re:再度:メディアプレーヤーについて(ichi... カッチャン 06/9/3(日) 10:30 質問
【42166】Re:再度:メディアプレーヤーについて(ichi... ichinose 06/9/3(日) 14:44 発言
【42352】Re:再度:メディアプレーヤーについて(ichi... カッチャン 06/9/7(木) 17:22 お礼

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