| |
▼カッチャン さん：
>ありがとうございました。「型が違う」というエラーは発生しなくなりました。
>しかし、また問題が発生しました。
> Set cc = Controls.Add("MediaPlayer.MediaPlayer.1") '..1.
> If Err.Number <> 0 Then
> Set cc = Controls.Add("WMPlayer.OCX.7") ’ ..2.
> End If
>MediaPlayerがあるシステムでは問題ないのですが、無いシステムでは1.でエラーを
>発生するのではなく、仮のオブジェクトが作成され（無地の四角いボックス）、それから
>WMPlayerが作製されます。
仮のオブジェクト？？ですか、私の環境では作成されませんでした
（Win2000 & Excel2002）
でも、WMPlayerが作成されるということは
エラートラップは発生しているということですね？
ならば、
> Set cc = Controls.Add("MediaPlayer.MediaPlayer.1") '..1.
> If Err.Number <> 0 Then
controls.remove controls.count-1
> Set cc = Controls.Add("WMPlayer.OCX.7") ’ ..2.
> End If
として、作成された仮のオブジェクトを削除してみてはいかがですか？
Excel2003を持っていないので私のほうで確認はしていません。
|
|
ichinose
- 06/8/31(木) 9:09 -
