Hoe speel je een videobestand af vanuit een Excel-werkblad?
Heb je ooit geprobeerd een videobestand af te spelen vanuit een werkblad? In dit artikel bespreek ik enkele interessante trucs om een videobestand dat op je computer is opgeslagen, af te spelen vanuit een Excel-werkboek.
Een videobestand afspelen vanuit een werkblad door op een Opdrachtknop te klikken
Een videobestand afspelen vanuit een werkblad door de eigenschappen van Windows Media Player in te stellen
In Excel is er een handige controle - Windows Media Play die je kan helpen een videobestand af te spelen. Volg de onderstaande stappen:
1. Klik op Ontwikkelaar > Invoegen > Meer besturingselementen, zie screenshot:
2. In het dialoogvenster Meer besturingselementen, scrol naar beneden en selecteer de optie Windows Media Player, klik vervolgens op de knop OK om het dialoogvenster te sluiten. Sleep daarna met de muis om een Windows Media Play-object te tekenen, zie screenshot:
3. Ga vervolgens naar het dialoogvenster Eigenschappen door te klikken op Ontwikkelaar > Eigenschappen. Voer in het dialoogvenster Eigenschappen de volgende acties uit:
(1.) Selecteer in het tabblad Alfabetisch de optie Ja in het veld Volledig scherm;
(2.) Kopieer en plak het pad van je videobestand inclusief de bestandsextensie in het veld URL.
4. Nadat je de bovenstaande instellingen hebt voltooid, verlaat de Ontwerpmodus en je opgegeven video wordt nu afgespeeld.
Een videobestand afspelen vanuit een werkblad door op een Opdrachtknop te klikken
Als je een videobestand wilt afspelen met een opdrachtknop, verschijnt er bij het klikken op de opdrachtknop een bladeren-venster waarin je het videobestand kunt kiezen om af te spelen. De volgende stappen kunnen je helpen:
1. Volg stap 1-2 in methode 1 om de Windows Media Player-controle in te voegen, en klik vervolgens op Ontwikkelaar > Invoegen > Opdrachtknop om een Opdrachtknop in te voegen, zie screenshot:
2. Klik vervolgens met de rechtermuisknop op de Opdrachtknop en kies Eigenschappen in het contextmenu. Typ in het geopende dialoogvenster Eigenschappen de tekst Videospelen naast het veld Bijschrift onder het tabblad Alfabetisch, zie screenshot:
3. Sluit vervolgens het dialoogvenster Eigenschappen en dubbelklik op de Opdrachtknop. Kopieer en plak vervolgens de volgende VBA-code om de originele code te vervangen in het venster Microsoft Visual Basic for Applications.
VBA-code: Een videobestand afspelen vanuit een werkblad:
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
Opmerking: In de bovenstaande code is CommandButton1 de naam van de ingevoegde opdrachtknop en WindowsMediaPlayer1 is de naam van de ingevoegde Windows Media Player. Je kunt andere videoformaatextensies toevoegen zoals nodig in het script *.mp4; *.avi; *.mpeg; *.mts .
4. Sla daarna het codevenster op en sluit het, en verlaat de Ontwerpmodus. Nu, wanneer je op de Opdrachtknop klikt, verschijnt er een bladeren-venster om je eraan te herinneren het videobestand te selecteren dat je wilt afspelen. Klik vervolgens op de knop Openen en het specifieke videobestand wordt onmiddellijk afgespeeld. Zie screenshot:
Gerelateerd artikel:
Hoe voeg je een YouTube-video in of embed je deze in een Excel-werkblad?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen