Vba excel windows media player

Вы когда-нибудь пробовали воспроизвести видеофайл с листа? В этой статье я расскажу о некоторых интересных приемах воспроизведения видеофайла, хранящегося на вашем компьютере, из книги Excel.

Воспроизвести видеофайл с листа, задав свойства Windows Media Player

Воспроизведите видеофайл с листа, нажав кнопку управления

Воспроизвести видеофайл с листа, задав свойства Windows Media Player

В Excel есть полезный элемент управления — Windows Media Play может помочь вам воспроизвести видеофайл, сделайте следующее:

1. Нажмите Застройщик > Вставить > Больше элементов управления, см. снимок экрана:

2. В Больше элементов управления диалоговое окно, прокрутите и выберите Windows Media Player , затем нажмите OK кнопку, чтобы закрыть диалоговое окно, а затем перетащите мышь, чтобы нарисовать Windows Media Play объект, см. снимок экрана:

3, Затем перейдите к Предложения диалоговое окно, нажав Застройщик > Предложения, В Предложения диалоговом окне выполните следующие действия:

(1.) В Алфавитный на вкладке, выберите вариант True из полноэкранный поле;

(2.) Скопируйте и вставьте путь к видеофайлу, который должен включать расширение файла, в URL поле.

4. После завершения вышеуказанных настроек выйдите Режим дизайна, и указанное вами видео сейчас воспроизводится.

Воспроизведите видеофайл с листа, нажав кнопку управления

Если вы хотите воспроизвести видеофайл с помощью командной кнопки, при нажатии этой кнопки откроется окно просмотра, в котором вы сможете выбрать видеофайл для воспроизведения. Вам могут помочь следующие шаги:

1. В соответствии с шагами 1-2 в методе 1 вставьте Windows Media Player элемент управления, а затем продолжайте щелкать Застройщик > Вставить > Кнопка управления чтобы вставить командную кнопку, см. снимок экрана:

2. Затем щелкните правой кнопкой мыши кнопку Command и выберите Предложения из контекстного меню во всплывающем Предложения диалоговое окно введите текст Воспроизвести видео за Подпись поле под Алфавитный вкладку, см. снимок экрана:

3. А затем закройте Предложения диалоговое окно, затем дважды щелкните кнопку Command, а затем скопируйте и вставьте следующий код VBA, чтобы заменить исходный код в Microsoft Visual Basic для приложений окно.

Код VBA: воспроизвести видеофайл с листа:

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

Внимание: В приведенном выше коде CommandButton1 это имя командной кнопки, которое вы вставили, а WindowsMediaPlayer1 это имя проигрывателя Windows Media, которое вы вставили. И вы можете добавить другие расширения видеофайлов по мере необходимости в * .mp4; * .avi; * .mpeg; * .mts скрипты.

4. Затем сохраните и закройте окно кода и выйдите из Режим дизайнатеперь, когда вы нажимаете кнопку Command, появляется окно просмотра, напоминающее вам о выборе видеофайла, который вы хотите воспроизвести, затем нажмите Откройте кнопку, сразу будет воспроизведен конкретный видеофайл. Смотрите скриншот:

Связанная статья:

Как вставить или вставить видео youtobe в лист Excel?

На вкладке Разработчик выбираем кнопку Вставить — Элементы ActiveX — Другие элементы управления (Developer — Insert — ActiveX — Other controls):

Затем в открывшемся окне находим Windows Media Player, жмём OK и рисуем его контейнер на листе, удерживая нажатой левую кнопку мыши:

Запоминаем имя вставленного компонента в левом верхнем углу (обычно это WindowsMediaPlayer1 или что-то похожее) и отжимаем кнопку Режим Конструктора (Design Mode), чтобы перевести плейер в рабочий режим.

Затем щёлкаем правой по ярлычку листа и выбираем команду Исходный текст (Source code). В открывшееся окно редактора макросов вводим следующий код:

Sub Radio()
    WindowsMediaPlayer1.Url = ActiveCell
    WindowsMediaPlayer1.Controls.Play
End Sub

Возвращаемся в Excel, выделяем ячейку с веб-ссылкой на потоковое вещание радиостанции и запускаем наш макрос через Разработчик — Макросы (Developer — Macros) или сочетанием клавиш Alt+F8. Для удобства также можно сделать отдельную кнопку запуска через Разработчик — Вставить — Кнопка (Developer — Insert — Button):

Воспроизведение медиа потока никак не мешает работе с данными на листах, созданию запросов Power Query, другим макросам и пр., т.к. происходит в фоновом процессе.

Простенько и со вкусом

We’ve had a few forum questions recently asking how to play audio files in Excel.

Normally I’d just use my media player for this but I can see that you might want to have an audio or video file that may explain something about your workbook. Or you could use Excel to play videos in order to do some training of staff.

The ability to do this kind of thing is there, so in this post I’m going to show you how to do it.

ActiveX Controls

You’re going to need to insert some ActiveX controls so you will need to enable the Developer tab if you haven’t already done this.

Required Controls

I’m going to use the Windows Media Player control, and a Command Button we can click to move to the next audio/video file.

To insert these, from the Developer tab, click on Insert, then More Controls. From the pop-up window, scroll down to Windows Media Player, select it and click OK.

You’ll now see that your mouse pointer has changed to a cross. Click on the sheet and drag the box to the size you want the player to be.

Using a command button will allow us to click on it and load the next audio/video file. Click Insert, click on the ActiveX Command Button, and drag it to the size and position you want.

Editing Control Properties

By default the name and text on the button are CommandButton1, I want to change this. First, make sure you are in Design Mode.

On the Developer tab, Design Mode mode should be colored/highlighted to indicate that you are in Design Mode. When this is the case the controls won’t carry out their usual functions.

Right click on the button and click on Properties. In the Properties window, I’ve changed the caption to ‘Next’ and changed the button’s name to ‘NextMediaFile’. We use the name in our VBA code so it’s important to have something meaningful.

Loading Media Files into the Player

We’ll come back to the VBA that loads the media files in a second, first I want to look at how we know what to play.

What I have done is use a specific cell, A3, to tell me the folder where the files are, and below that is a list of the files I want to play.

Please note that the filename must include the extension.

You could create a playlist in Windows Media Player and load that, and it will play everything in the playlist.

VBA

We want to click the ‘Next’ command button to load the next file so to do that we need a little VBA

Make sure you are in Design Mode, and right click the button. Click on ‘View Code’ and the VBA editor will open with an empty sub already created for you.

Note that the name of the sub is taken from the name we gave the button. Now you just need to enter the code to do the fancy stuff.

Download the VBA & Workbook

How the Code Works

Each time the button is clicked the ActiveCell is moved down one row.

The code uses the ActiveCell to load the next file. If that cell is empty it goes to the start again, cell A4.

The file listed in the ActiveCell is loaded into the media player.

The code makes the assumption that there isn’t anything else on the sheet, so if you happen to have F34 selected, it won’t have anything in it. That being the case, the code will go back to the start of the media files and play the first one.

In this post, I will show you how to add additional controls such as Windows Media Player, Adobe PDF Reader and Microsoft ListView Control in Excel VBA.

So here are the steps you need to follow. First create a blank workbook.

Then click somewhere in the excel sheet and press Alt+F11 to open the VBA editor. Then click on the Insert menu and select Userform.

Once you select the Userform, a new userform will be created like this.

Also the Toolbox will appear to the side of the form as well.

Some of the controls are already in this toolbox such as Textbox, Label and ListBox etc. Now let’s look at how to add additional controls to it. To do that we need to click on the Tools menu and click on Additional Controls…

It will open the Additional Controls Window like this.

Now you can add any additional control you like. For this example let’s add Windows Media Player. Select the checkbox in front of the Windows Media Player and then click OK.

This will add Windows Media Player icon to our Toolbox like this.

Now we can add Windows Media Player to our userform.