VBAでMediaPlayerを搭載させてみた

VBAで音を鳴らそうと思った。

最初はフォームにMediaPlayerを張り付けてみたが、ActiveXのエラーが出たりするのでうんざり。
で、こうしてみた。

VBScript

    '' メディアプレイヤー設定
    Set WMP2_red = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")

これでActiveXの問題は解決。

だが、いざ使ってみると、最初に音を出すときにディレイがある。
決して環境（スペック）の問題ではない。

仕方ないので、ダミーで音を出させた。

VBScript

    '' 最初の音にディレイがあるため、一度（ミュート状態で）音を出しておく
    WMP2_red.settings.mute = True
    WMP2_red.Controls.Play

これで（ある程度は）解決した。

ちなみに、Windows10 + Excel2000ですがね。