Hoe speelt u een videobestand af vanuit een Excel-werkblad?
Hebt u ooit geprobeerd een videobestand rechtstreeks vanuit een werkblad af te spelen? In dit artikel deel ik enkele handige trucs waarmee u een lokaal opgeslagen videobestand kunt afspelen vanuit uw 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 handig besturingselement – Windows Media Player – waarmee u een videobestand kunt afspelen. Volg hiervoor de volgende stappen:
1. Klik op Ontwikkelaar > Invoegen > Meer besturingselementen, zie schermafbeelding:
2. Selecteer in het dialoogvenster Meer besturingselementen door te scrollen de optie Windows Media Player en 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 schermafbeelding:
3. Ga vervolgens naar het dialoogvenster Eigenschappen door op Ontwikkelaar > Eigenschappen te klikken. Voer in het dialoogvenster Eigenschappen de volgende handelingen uit:
(1.) Selecteer op het tabblad Alfabetischde optie Selecteer alstublieft True in het veld fullScreen;
(2.) Kopieer en plak het pad naar uw videobestand, inclusief de bestandsextensie, in het URL-veld.
4. Nadat u de bovenstaande instellingen hebt voltooid, verlaat u de Ontwerpmodus en wordt uw opgegeven video afgespeeld.
Een videobestand afspelen vanuit een werkblad door op een Opdrachtknop te klikken
Als u een videobestand wilt afspelen via een opdrachtknop, opent er zich bij het klikken op die knop een bladervenster waarin u het gewenste videobestand kunt selecteren. De volgende stappen helpen u daarbij:
1. Volg stap 1–2 uit methode 1 om het besturingselement Windows Media Player in te voegen. Klik daarna op Ontwikkelaar > Invoegen > Opdrachtknop om een opdrachtknop in te voegen, zie schermafbeelding:
2. Klik met de rechtermuisknop op de opdrachtknop en kies Eigenschappen in het contextmenu. Typ in het verschijnende dialoogvenster Eigenschappen de tekst Video afspelen naast het veld Bijschrift onder het tabblad Alfabetisch, zie schermafbeelding:
3. Sluit vervolgens het dialoogvenster Eigenschappen en dubbelklik op de opdrachtknop. Kopieer en plak daarna de volgende VBA-code om de oorspronkelijke 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 opdrachtknop die u hebt ingevoegd, en is WindowsMediaPlayer1 de naam van de Windows Media Player die u hebt ingevoegd. U kunt eventueel andere video-extensies toevoegen aan het gedeelte *.mp4; *.avi; *.mpeg; *.mts van het script.
4. Sluit vervolgens het codevenster en kies Opslaan en sluiten om de Ontwerpmodus te verlaten. Wanneer u nu op de opdrachtknop klikt, verschijnt een bladervenster waarin u het gewenste videobestand kunt selecteren. Klik daarna op de knop Openen, waarna het geselecteerde videobestand direct wordt afgespeeld. Zie de schermafbeelding:
Gerelateerd artikel:
Hoe voegt u een YouTube-video in of embedt u deze in een Excel-werkblad?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins