Mediaplayer Zellwert(Zeit) als Startpunk
09.02.2021 12:02:23
Jörn
Ich habe einen Media Player in Excel eingefügt und würde gerne einen zusätzlichen Button einfügen mit dem das Video auf einen Zeitpunkt beginnt/springt, der durch einen Zellwert (Zeit) bestimmt wird.
Also, ich gebe den Zellwert z. B. 01:04 ein und das Video läuft ab diesem Zeitpunkt bis ich es anhalte.
Ich habe das Forum und das Internet durchsucht aber keine Lösung gefunden. Das VBA dass ich mit freundlicher Hilfe des Forums derzeit benutze siehe unten.
Es wäre toll, wenn mir jemand helfen könnte ,eine Lösung zu finden. Ich möchte noch erwähnen, dass ich leider nicht über VBA Kenntnisse verfüge.
Gruß
Jörn
Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Private Sub CommandButton1_Click()
Dim FName As Variant
FName = Application.GetOpenFilename(FileFilter:="Video Files, *.mp4; *.avi; *.mpeg; *.mts", _
Title:="Please select a Video File", MultiSelect:=False)
If FName False Then
WindowsMediaPlayer1.Url = FName
End If
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = wmppsPlaying Then
Call Sleep(200)
With WindowsMediaPlayer1
.Top = 0
.Left = 774
.Height = 320
.Width = 600
End With
End If
End Sub