Microsoft Excel

трюкиприёмырешения

VBA и макросы
31.05.2013 2961

Как проигрывать MP3 файлы в Excel

Для того чтобы Excel смог проигрывать ваши MP3-композиции сначала необходимо создать в ячейке гиперссылку, которая будет указывать на MP3-файл. Нажатие на гиперссылку инициирует воспроизведение аудио-файла в MP3 в программе-проигрывателе по умолчанию.

Но есть большая проблема: вы получите по крайней мере один (возможно два) раздражающих сообщений безопасности от Windows. Microsoft в курсе этой проблемы и описала способ как отключить эти сообщения, но это достаточно сложная процедура.

Мы предлагаем вам использовать альтернативный подход с использованием макросов VBA. Созданный макрос предполагает, что ячейка будет содержать полный путь до MP3-файла.

1
2
3
4
5
6
7
8
9
10
11
12
Sub PlayMP3()
   Application.ScreenUpdating = False
   On Error Resume Next
   ActiveSheet.OLEObjects.Add(Filename:=ActiveCell.Text, Link:=True).Select
   If Err.Number <> 0 Then
     Application.ScreenUpdating = True
     MsgBox "Could not play " & ActiveCell.Text
     Exit Sub
   End If
   Selection.Verb
   Selection.Delete
End Sub

Функция PlayMP3 создает OLE-объект, который содержит ссылки на файл в активной ячейке и загружает MP3-файл в программу воспроизведения по умолчанию, затем OLE-объект удаляется. Если активная ячейка содержит нечто иное, чем действительный путь к MP3-файлу, для пользователя выводится сообщение, и ничего не происходит. Это все происходит быстро, и вы никогда не увидите предупреждение системы безопасности от Windows.

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


Top