티스토리 뷰
엑셀 매크로 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
.
'엑셀' 카테고리의 다른 글
엑셀 매크로 VBA 나의 함수 문자전송 (0) | 2018.11.21 |
---|---|
엑셀 매크로 VBA 나의 함수 Last_Lines_300 마지막 데이타의 row 찾기 (0) | 2018.11.20 |
엑셀 매크로 VBA 나의 함수 시트 감추고 보이기 (0) | 2018.11.20 |
엑셀 매크로 VBA 나의 함수 폴더 생성 (0) | 2018.11.19 |
엑셀 매크로 VBA 나의 함수 모든파일에서_오늘날짜_데이타만추출해서_넣기() (0) | 2018.11.19 |