ZV

00:00:00

Автор Тема: Слушаем интернет-радио в Excel  (Прочитано 127 раз)

0 Пользователей и 1 Гость просматривают эту тему.


  • Хозяин сайта
  • Гл. Администратор
  • *****
  • ru

<---Информация--->

  • Сообщений: 69827
  • Регистрация: 29-03-2010
  • Возраст: 58
  • Расположение: Крым
  • Спасибо за пост:
  • -Сказал(а) спасибо: 95362
  • -Поблагодарили: 163885
  • Награды За 50 000 сообщений Главному Админу Новостнику форума Ключнику форума За активность в разделе Игры За активность в разделе Софт За активность в разделе Киноиндустрия За активность в разделах Книги и Аудио-книги За активность в разделе Музыка За активность в разделе Кулинария Тем, кто привел пользователей на наш форум За искрометный юмор
    • Награды
https://i.postimg.cc/fTLCTBvJ/kiss-375kb-1652296059.png

Как за пару минут реализовать в Excel прослушивание интернет-радиостанций с помощью внедренного компонента Windows Media Player и макроса в две строки.

Скачать пример [Ссылки могут видеть только зарегистрированные пользователи. ]


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

https://i.postimg.cc/W3zzJFY6/excel-radio1.png

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

https://i.postimg.cc/T3ZvcyPJ/excel-radio2.png

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

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

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ссылки могут видеть только зарегистрированные пользователи. ]



 


* Ваши права в разделе

  • Вы не можете создавать новые темы.
  • Вы не можете отвечать в темах.
  • Вы не можете прикреплять вложения.
  • Вы не можете изменять свои сообщения.