Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Media-Player ansteuern via Vba

Forumthread: Media-Player ansteuern via Vba

Media-Player ansteuern via Vba
08.12.2008 19:03:00
Franz
Guten Abend.
Wer weiss wo ich eine Sammlung vom ActiveX-Element des Media-Players finden kann, bzw. ich möchte gezielt eine Stelle ab "01:23" (als Beispiel: nach 1 Stunde und 23 Minuten) sofort ansteuern via Vba (oder auch ohne).
Tschüss!
Franz D.
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Media-Player ansteuern via Vba
08.12.2008 21:04:00
Herbert
Hi,
falls du das Steuerelement meinst, welche Version? Die müssen alle
anders angesprochen werden.
mfg Herbert
AW: Media-Player ansteuern via Vba
09.12.2008 11:13:00
Franz
Hallo Herbert,
ich habe die 11.Version zurZeit.
mfg
Franz D.
AW: Media-Player ansteuern via Vba
09.12.2008 16:06:33
Herbert
Hi,
WindowsMediaPlayer1.Controls.currentPosition = 60 'in Sekunden
Dort deine Starposition in Sekunden angeben.
mfg Herbert
Anzeige
AW: Media-Player ansteuern via Vba
09.12.2008 18:50:00
Franz
Super!
Werde ich Morgen ausprobieren! Herzlichen Dank Herbert.
Tschüss!
Franz D.
AW: Media-Player ansteuern via Vba
10.12.2008 21:22:50
Franz
Hi Herbert,
Ich würde doch lieber so ähnlich wie danach zum Ziel kommen (Sorry!):

Sub Mediaplayer_mit_Shell()
Shell "C:\Programme\Windows Media Player\wmplayer.exe C:\test.avi /fullscreen",  _
vbMaximizedFocus
End Sub


Kennts du oder jemanden den Parameter in einer SHELL-Form um eine Position 3600 (=1 Stunde Film als Beispiel) sofort starten zu können?
Alternative: Wer hätte eine kleine Sammlung von SUBs zum Thema WindowsMediaPlayer die ich dann anpassen könnte?
mfg
Franz D.

Anzeige
AW: Media-Player ansteuern via Vba
10.12.2008 21:23:00
Franz
Hi Herbert,
Ich würde doch lieber so ähnlich wie danach zum Ziel kommen (Sorry!):

Sub Mediaplayer_mit_Shell()
Shell "C:\Programme\Windows Media Player\wmplayer.exe C:\test.avi /fullscreen",  _
vbMaximizedFocus
End Sub


Kennts du oder jemanden den Parameter in einer SHELL-Form um eine Position 3600 (=1 Stunde Film als Beispiel) sofort starten zu können?
Alternative: Wer hätte eine kleine Sammlung von SUBs zum Thema WindowsMediaPlayer die ich dann anpassen könnte?
mfg
Franz D.

Anzeige
AW: Media-Player ansteuern via Vba
13.12.2008 18:59:00
Franz
Hallo,
habe den Hacken "Frage noch offen" am 9.12.08 leider nicht aktiviert, deswegen diese Anfrageform.
Tschüss!
Franz D.
AW: Media-Player ansteuern via Vba
14.12.2008 12:31:39
Herbert
Hi,
setze in der VBE einen Verweis auf den Mediaplayer dann siehst du im Objektkatalog
alle zur Verfügung stehenden Eigenschaften/Methoden/Ereignisse.
Shell verwendet man nur, wenn kein Zugriff auf ein Objektmodell möglich ist.
mfg Herbert
Anzeige
AW: Media-Player ansteuern via Vba
15.12.2008 18:29:53
Franz
Hallo,
Danke Herbert,
ich werde mich demnächst mit der Thematik intensiv befassen.
mfg
Franz D.
;

Forumthreads zu verwandten Themen

WindowsMediaPlayer1.currentMedia.duration
Franz

Hallo Freunde,
Sichere zur Zeit meine alten Videobänder. Mittels obiger Eigenschaft kann man die Filmlänge einer AVI Datei entnehmen. Vorteil: Ich kann mit ".CurrentPosition" eine bestimmte Stelle bequem ansteuern. Gibt es eine Funktion oder Trick wie ich auch ohne Einbindung des Mediaplaye...
27.12.2008 14:58:46
Thread-ID: 1035386
4 Beiträge
Anzeige
Laufzeitfehler Windows Media Player
ThomasGestrich

Hallo zusammen,
ich habe auf dieser Site einen Code von Nepumuk v. 18.01.2005 gefundern, der es erlaubt über den Windows Media Player Musik zu spielen - und das Programm im Hintergrund beläßt.
Zur Lauffähigkeit muß ein Verweis gesetzt werden.
Bei Codeausführung kommt der Laufzeitfe...
12.04.2010 16:00:54
Thread-ID: 1151214
6 Beiträge
Objekt Mediaplayer in Excel MP3's aufrufen
Dieter

Hi Spezialisten,
habe in einer Tabelle mit OBJEKT eingefügen den Mediaplayer eingefügt. In VBA-Code sehe ich:
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) End Sub
Wie kann ich nun über den Mediaplayer die MP3 Titel, die auf C:\JHB\ liegen, aufrufen bzw....
15.10.2010 13:19:33
Thread-ID: 1182602
10 Beiträge
Mediaplayer schließen
reiner

hallo Leute,
eine eingefügte wav-Datei startet den MediaPlayer und spielt eine kurze Tonfolge ab wenn ein bestimmter Wert errechnet wird.
Lässt sich der MediaPlayer aus der Taskleiste löschen (beenden) wenn in der Excel-Datei eine UF geschlossen wird, da das Abspielen der Tonfolge nur f...
21.08.2013 10:09:53
Thread-ID: 1327757
7 Beiträge
Anzeige
VLC Media Player-AutoBackup.wav abspielen
robert

Guten Abend,
die AutoBackup.wav spielt mir der Media-Player nicht ab.
Der VLC-Media Player schon !
Kann man in einer Datei per VBA das abspielen der Autobackup.wav Datei
mit dem VLC Media Player programmieren?
Gruß
robert
09.02.2014 16:45:36
Thread-ID: 1348794
3 Beiträge
Mediaplayer starten über Makro geht nicht in Excel
Elmar

Hallo Experten,
bräuchte mal dringend Hilfe...
Kann mir jemand sagen, weshalb der Code unter Excel 2007 nicht läuft? er bleibt immer an der fett markierten Zeile hängen. Vielleicht habt Ihr ja einen besseren Vorschlag, das Makro soll einfach nur die Datei "-1-.mp3" starten, die im vorg...
12.10.2014 23:00:54
Thread-ID: 1386290
7 Beiträge
kein Ton bei großen Videos mit WindowsMediaPlayer
Denis

Hallo Leute!
ich habe ein kleines Problem und hoffe Ihr könnt mir helfen. Ich versuche in einer Userform ein Video über WindowsMediaPlayer anzuzeigen. Das Funktioniert auch soweit ganz gut. Jedoch soblad ein Vidoe ca. 90 MB überschreitet wird kein Ton mit abgespielt, ich sehe also nur das V...
30.09.2017 18:35:08
Thread-ID: 1583595
6 Beiträge
Windows Mediaplayer in Userform
Fettertiger

Hallo liebe Experten,
ich wurde gebeten eines meiner alten Tools zu reaktivieren. Das Tool hatte seinerzeit ganz wunderbar funktioniert, macht aber jezt unter Office 365 auf Windows 10 64bit ein paar Probleme. Eingrenzen konnte ich es auf den WindowsMediaplayer der auf einer Userform ein vi...
17.07.2019 12:00:18
Thread-ID: 1702928
3 Beiträge
windowsmediaplayer
cindy

hallo,habe einen windowsmedieplayer in das ActiveSheet eingebettet, allerdings komm ich jett nicht darauf, wie man den ansteuert, bzw. auf ButtonClick ein video abspielt, dass sich auf der festplatte befindet...wer kann mir helfen?
12.01.2003 11:41:03
Thread-ID: 202111
3 Beiträge
steuerelement windowsmediaplayer
steff
hallo leute
wie programmiert man den windows media player in einer UserForm?.
Mein Programm fängt wie nachfolgend geschrieben an:
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
Kann mir jemand helfen?
Dankeschön im voraus
gruss steff
23.02.2004 23:08:44
Thread-ID: 387608
13 Beiträge
Media Player über Macro
Lothar

Hallo,
ich möchte ein mpeg über macro starten. Habe Folgendes eingegeben:
Modul:
Sub Openuserform2()
UserForm2.Show
End Sub
Code für userform2: (Wurde erstellt beim Einbinden des Players in die userform)
Private Sub MediaPlayer1_DVDNotify(ByVal EventCode As Lon...
11.07.2004 12:59:01
Thread-ID: 453259
5 Beiträge
Titel aus Windows Media Player importieren
lutz

Hallo Ex(cel)perten,
ich möchte mir aus der Medienbibliothek des Windows Media Player 10 die Titel und den dazugehörigen Interpreten in Excel importieren, da ich dort bisher leider eine solche Funktion nicht entdeckt habe.
Könnt Ihr mir weiterhelfen?
Gruß
Lutz
02.07.2006 23:07:22
Thread-ID: 778503
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Media-Player über VBA steuern

Schritt-für-Schritt-Anleitung

Um den Windows Media Player über Excel VBA zu steuern, befolge diese Schritte:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Setze einen Verweis auf das Windows Media Player Control:

    • Gehe zu Extras > Verweise.
    • Suche nach Windows Media Player und aktiviere das Kontrollkästchen.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf VBAProject (DeineDateiName).
    • Wähle Einfügen > Modul.

  4. Füge den folgenden Code ein, um die Position im Media Player zu steuern:

    Sub SteuereMediaPlayer()
   Dim player As WindowsMediaPlayer
   Set player = New WindowsMediaPlayer
   player.URL = "C:\Pfad\zu\deinem\Video.avi" ' Ersetze mit dem Pfad zu deinem Video
   player.Controls.currentPosition = 60 ' Setze die Startposition auf 60 Sekunden
   player.Controls.play
End Sub

  5. Führe das Makro aus und der Media Player sollte an die angegebene Position springen.

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Lösung: Stelle sicher, dass der Verweis auf das Windows Media Player Control korrekt gesetzt ist.

  • Fehler: "Datei nicht gefunden"

    • Lösung: Überprüfe den Dateipfad und sorge dafür, dass die Datei existiert.

  • Fehler: Media Player startet nicht

    • Lösung: Prüfe, ob der Media Player korrekt installiert ist und ob der Pfad korrekt angegeben wurde.

Alternative Methoden

Wenn du nicht auf VBA zurückgreifen möchtest, kannst du den Windows Media Player auch manuell steuern:

  • Verwendung von Shell:

    Sub Mediaplayer_mit_Shell()
   Shell "C:\Programme\Windows Media Player\wmplayer.exe C:\Pfad\zu\deinem\Video.avi /fullscreen", vbMaximizedFocus
End Sub

In diesem Beispiel kannst du den Pfad und den Dateinamen anpassen. Beachte jedoch, dass du mit dieser Methode keine spezifische Position im Video ansteuern kannst.

Praktische Beispiele

  1. Beispiel 1: Video abspielen und auf eine bestimmte Zeit springen.

    Sub BeispielMediaPlayer()
   Dim player As WindowsMediaPlayer
   Set player = New WindowsMediaPlayer
   player.URL = "C:\Videos\Film.avi"
   player.Controls.currentPosition = 3600 ' 1 Stunde in Sekunden
   player.Controls.play
End Sub

  2. Beispiel 2: Mehrere Videos in einer Schleife abspielen.

    Sub AbspielenMehrererVideos()
   Dim player As WindowsMediaPlayer
   Dim videos As Variant
   videos = Array("C:\Videos\Film1.avi", "C:\Videos\Film2.avi")

   Set player = New WindowsMediaPlayer
   For Each video In videos
       player.URL = video
       player.Controls.play
       Do While player.playState <> 1 ' Wartet, bis das Video zu Ende ist
           DoEvents
       Loop
   Next video
End Sub

Tipps für Profis

  • Nutze DoEvents, um die Benutzeroberfläche während der Wiedergabe reaktionsfähig zu halten.
  • Experimentiere mit den verschiedenen Eigenschaften und Methoden des vba windows media player-Objekts, um die Kontrolle über die Wiedergabe weiter zu verfeinern.
  • Speichere häufig genutzte Routinen in einem separaten Modul, um den Code übersichtlich zu halten.

FAQ: Häufige Fragen

1. Wie greife ich auf die Steuerelemente des Media Players zu?
Du kannst die Steuerelemente des Windows Media Players über das Objektmodell in VBA ansprechen, nachdem du den entsprechenden Verweis gesetzt hast.

2. Welche Excel-Version benötige ich?
Die oben genannten Schritte und Codes sollten in Excel 2010 und höheren Versionen funktionieren, solange der Windows Media Player korrekt installiert ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige