Слушаем интернет-радио в Excel


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

Другие элементы ActiveX

Затем в открывшемся окне находим 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, другим макросам и пр., т.к. происходит в фоновом процессе.

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




08.05.2022 13:42:21
Николай, благодарю! ЗдОрово!
08.05.2022 15:51:19
Здравствуйте Николай,

А как самому формировать ссылку на радио которую  я хочу слушать???
13.05.2022 08:12:25
Насколько я понимаю, это может только радиостанция :D
08.05.2022 20:25:48
Интересно, единственное перенес бы от пользователя на скрытый лист ссылки
Sub Radio()
WindowsMediaPlayer1.Url = Sheets("Лист2".Range(ActiveCell.Address)
WindowsMediaPlayer1.Controls.Play
End Sub
08.05.2022 21:59:42
А можно то же самое, но для видео с ютуба?
08.05.2022 22:15:07
Или любого другого источника видео
10.05.2022 09:37:32
Проделал всё тоже самое, но почему-то не играет радио
10.05.2022 18:47:27
Посмотрите инструкцию в видео, а то на сайте инструкция не полная и нет скрина со списком радиостанций.
10.05.2022 20:48:04
Все супер, но хотелось бы добавить две кнопки "вперед" и "назад" для перехода по радиостанциям.
17.05.2022 14:57:44
добавляете 2 макроса:

Sub RadioNext()
   ActiveCell.Offset(1, 0).Select
   WindowsMediaPlayer1.Url = ActiveCell
   WindowsMediaPlayer1.Controls.Play
End Sub


Sub RadioPrev()
   ActiveCell.Offset(-1, 0).Select
   WindowsMediaPlayer1.Url = ActiveCell
   WindowsMediaPlayer1.Controls.Play
End Sub

Ну и вставляете 2 кнопки, назначив макросы соответствующие
19.05.2022 17:10:50
Спасибо за помощь. Все получилось!)))) Благодарю!!!:)
17.05.2022 15:22:56
А если добавить макрос


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(ActiveCell.Value, "://") > 0 Then
Call Radio
End If
End Sub
 
То можно просто тыкать на ссылку, и будет проигрываться станция. А если ткнуть в другую пустую, то ничего не произойдет )
18.05.2022 10:28:12
Все проделал, а радио молчит. Скачал ваш пример, при открытии радио начинает играть сразу, при переключении станции замолкает и не работает ни одна ссылка. В чем может быть проблема?
21.05.2022 16:22:42
Использовал первоначальный код Павла, но все время вылезает ошибка 424. Теряюсь в догадках
27.05.2022 19:15:33
Добрый день!
Все сделала, радио молчит. Нажимаешь на кнопку Play, в ячейке A1, где добавлен компонент WindowsMediaPlayer, пишет Подключение - Открытие мультимедиа - Готово. И тишина. Что может быть не так?
Наверх