Windows Media Player minimieren
11.11.2022 14:36:17
Kurt
ich bitte euch wieder einmal um eure geschätzte Hilfe.
Was möchte ich tun und nicht per VBA schaffe:
Ich rufe mit nachfolgenden Code Musikdateien auf. Möchte nach dem Start von Windows Media Player diesen minimieren und die Excel-Datei wieder aktivieren.
Code im Tapellenblatt:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim UsedRange As Range
If Not Intersect(Target, Range("A3")) Is Nothing Then
CD_Musik_0381_1_6
ActiveCell.Offset(0, 1).Select
End If
If Not Intersect(Target, Range("A4")) Is Nothing Then
CD_Musik_0148_4
ActiveCell.Offset(0, 1).Select
End If
If Not Intersect(Target, Range("A5")) Is Nothing Then
CD_Musik_0147_3
ActiveCell.Offset(0, 1).Select
End If
usw.
Im Modul:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal lpnShowCmd As Long) As Long
Sub CD_Musik_0381_1_6()
ShellExecute 0, "open", "Z:\Musik\CD-Musik\301-400\381-390\381\381_1\Titel 6.mp3", "", "C:\Programme\Windows Media Player\wmplayer.exe", 1
End Sub
Sub CD_Musik_0148_4()
ShellExecute 0, "open", "Z:\Musik\CD-Musik\101-200\141-150\148\Titel 4.mp3", "", "C:\Programme\Windows Media Player\wmplayer.exe", 1
End Sub
Sub CD_Musik_0147_3()
ShellExecute 0, "open", "Z:\Musik\CD-Musik\101-200\141-150\147\Titel 3.mp3", "", "C:\Programme\Windows Media Player\wmplayer.exe", 1
End Sub
usw.Ich danke euch im Voraus recht herzlich für eure Hilfe
Lg Kurt