Как за пару минут реализовать в Excel прослушивание интернет-радиостанций с помощью внедренного компонента Windows Media Player и макроса в две строки.
пример
[Ссылки могут видеть только зарегистрированные пользователи. ]
На вкладке
Разработчик выбираем кнопку
Вставить - Элементы ActiveX - Другие элементы управления (Developer - Insert - ActiveX - Other controls):
Затем в открывшемся окне находим
Windows Media Player, жмём
OK и рисуем его контейнер на листе, удерживая нажатой левую кнопку мыши:
Запоминаем имя вставленного компонента в левом верхнем углу (обычно это
WindowsMediaPlayer1 или что-то похожее) и отжимаем кнопку
Режим Конструктора (Design Mode), чтобы перевести плейер в рабочий режим.
Затем щёлкаем правой по ярлычку листа и выбираем команду
Исходный текст (Source code). В открывшееся окно редактора макросов вводим следующий код:
1. Sub Radio()
2. WindowsMediaPlayer1.Url = ActiveCell
3. WindowsMediaPlayer1.Controls.Play
4. End SubВозвращаемся в Excel, выделяем ячейку с веб-ссылкой на потоковое вещание радиостанции и запускаем наш макрос через
Разработчик - Макросы (Developer - Macros) или сочетанием клавиш
Alt+F8. Для удобства также можно сделать отдельную кнопку запуска через
Разработчик - Вставить - Кнопка (Developer - Insert - Button).
Воспроизведение медиа потока никак не мешает работе с данными на листах, созданию запросов Power Query, другим макросам и пр., т.к. происходит в фоновом процессе.
Простенько и со вкусом :)
[Ссылки могут видеть только зарегистрированные пользователи. ][Ссылки могут видеть только зарегистрированные пользователи. ]
