2017年6月
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30  

« ♪Piano(トルコ行進曲/モーツァルト) | トップページ | ♪耳コピー(舞い落ちる雪のように/Suara) »

2009年2月20日 (金)

♪MP3タグ編集(画像、歌詞埋め込み)

最近、ネットから入手した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)

« ♪Piano(トルコ行進曲/モーツァルト) | トップページ | ♪耳コピー(舞い落ちる雪のように/Suara) »

音楽」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

« ♪Piano(トルコ行進曲/モーツァルト) | トップページ | ♪耳コピー(舞い落ちる雪のように/Suara) »