Sample Macro  コントロール・Windows Media Player Previous Next

18-1) WMVファイルを再生する このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
Private Sub UserForm_Click()
    フルパス = "C:\A\Wildlife.wmv"          '※1
    Me.WindowsMediaPlayer1.URL = フルパス   '※2
End Sub
'=================================================================================
<コメント>
※1 Windows Media Video ファイルへのフルパスを指定する
  (例示の Wildlife.wmv は、Windows7の「ライブラリ」-「ビデオ」フォルダーにある
  「野生動物.wmv」に相当する)
※2 WindowsMediaPlayerコントロールのサンプルは こちら

Excel VBA Macro