엑셀 매크로 VBA 나의 함수 미디어 플레이어

엑셀 매크로 VBA 나의 함수 미디어 플레이어

Sub tr_Media_Player(filename As String)

  Dim objPlayer  As WindowsMediaPlayer

  

  Dim player As WindowsMediaPlayer

   Set player = CreateObject("WindowsMediaPlayer")

'  Set objPlayer = CreateObject("WMPlayer.ocx")

  

'  Call objPlayer.URL(filename)

  

'Dim objPlayer As WindowsMediaPlayer

'  Set objPlayer = CreateObject(WindowsMediaPlayer, "WMPlayer.ocx")

  objPlayer.stop  '미디어플레이어를 멈춥니다.

  Set objPlayer = Nothing '미디어플레이어 객체 제거

  

  

  Dim MediaPlayer As WindowsMediaPlayer

'  Set MediaPlayer = CreateObject("MediaPlayer.MediaPlayer")  '미디어 플레이어 객체생성합니다

  MediaPlayer.Open filename '미디어플레이어를 엽니다 뒤에는 경로

  MediaPlayer.stop  '미디어플레이어를 멈춥니다.

  Set MediaPlayer = Nothing '미디어플레이어 객체 제거

  

End Sub

.