好きなものあれこれ

最近、ネットから入手したMP3をWindows Media Player(WMP）で再生したところ、CDジャケットの画像や歌詞が表示されるではありませんか。いやぁ驚きました。MP3に画像や歌詞を埋め込むことが出来るのですね。
WMPの拡張タグエディタという機能を利用すると、複数の画像や、MP3の再生時間に応じて歌詞を表示することができます。
以前からMP3の画像をネットから収集するExcelマクロは作成していたので、今回はWMPに画像を埋め込むマクロを作成してみました。WindowsAPIのSendInputを利用してキーボード操作を再現していますが、拡張タグエディタを起動するのにキーボードのアプリケーションキーを押下する必要があり、キーボードの値をネットでやっと探し出しました。
以下はロジックの抜粋です。興味のある方は試してみてくださいね。WMPが起動していることが前提です。

    'WMP操作
    lMax = 45
    ReDim wVkKey(lMax) As Integer
    ReDim UpDown(lMax) As Integer
    AppActivate "Windows Media Player"
    SendKeys Cells(ActiveCell.Row, 7).value, True
   
    wVkKey(0) = &H5D:               UpDown(0) = 0
    wVkKey(1) = &H5D:               UpDown(1) = 1
    wVkKey(2) = vbKeyV:             UpDown(2) = 0
    wVkKey(3) = vbKeyV:             UpDown(3) = 1
   
    wVkKey(4) = vbKeyShift:         UpDown(4) = 0
    wVkKey(5) = vbKeyTab:           UpDown(5) = 0
    wVkKey(6) = vbKeyTab:           UpDown(6) = 1
    wVkKey(7) = vbKeyShift:         UpDown(7) = 1
   
    wVkKey(8) = vbKeyRight:         UpDown(8) = 0
    wVkKey(9) = vbKeyRight:         UpDown(9) = 1
    wVkKey(10) = vbKeyTab:          UpDown(10) = 0
    wVkKey(11) = vbKeyTab:          UpDown(11) = 1
    wVkKey(12) = vbKeyTab:          UpDown(12) = 0
    wVkKey(13) = vbKeyTab:          UpDown(13) = 1
    wVkKey(14) = vbKeyTab:          UpDown(14) = 0
    wVkKey(15) = vbKeyTab:          UpDown(15) = 1
    wVkKey(16) = vbKeyTab:          UpDown(16) = 0
    wVkKey(17) = vbKeyTab:          UpDown(17) = 1
   
    ・   
    ・   
    ・   

   
    wVkKey(42) = vbKeyControl:      UpDown(42) = 0
    wVkKey(43) = vbKeyV:            UpDown(43) = 0
    wVkKey(44) = vbKeyV:            UpDown(44) = 1
    wVkKey(45) = vbKeyControl:      UpDown(45) = 1
    
    AppActivate "Windows Media Player"
    rtn = SendInput(wVkKey, UpDown)

主よ、人の望みの喜びよが予想以上に難しく完成を待たずに次の曲にチャレンジです。モーツァルトのピアノ・ソナタ 第11番 イ長調 K.331 第三楽章といっても？な人もトルコ行進曲、トルコマーチといえば誰でも一度は聴いたことがあるほど有名な曲ですね。
どうもピアノを習っている子供の練習曲に使われるくらい簡単な曲らしいですが、出だしから汗です。む、むずかしい。まだ右手だけですが、オクターブはあるし、長く速いパッセージが繰返していて指がつりそうです。左手と組み合わせて弾けるかどうかも不安ですが練習あるのみです。


http://www.nicovideo.jp/watch/sm4708501