|
▼カッチャン さん:
おはようございます。
>Private Sub UserForm_Initialize()〜End Sub の内、Controls.Addを
>OLEObjects.Addに変更したらW2000,Ex2000でうまく作動しました。
>その後、そのプログラムをWxp,Ex2003で試したところ、両方(メディアプレーヤーと
>ウインドウズメディアプレヤーが表示されました。Ex2003にはメディアプレーヤが
>どこかに含まれているものと思われます。
> 何故そうなるのかと調べていくと、Set cc= でMediaPlayer.MediaPlayer.1 の
>オブジェクトを追加すると、エラー13(型が一致しません)が発生していました。
>このため、Ex2003では 次の Set cc= で WMPlayer.OCX.7 も実行されることに
>なります。
> エラー13の原因がわからないので、ご教授お願いいたします。
ちょっと、時間とれずきちんと検証していませんが、
エラー13は、「型が一致しません」というエラーです。
試しに
dim cc as object
という型宣言で試してみてください。
これでも13というエラーが出ますか?
今日は、もう投稿の時間が持てません。
解決しなかったら、どなたかよろしくお
|
|