Запуск файла из Excel

[Фернан]

Помогите запустить файл который находится на компьютере из Excel.

В поиске нашел что это можно сделать с помощью Shell, но как именно?

Если точнее, мне нужно чтобы сработал медиа файл при нажатии на картинку.

[EducatedFool]

Назначьте картинке макрос ЗапускМедиафайла:

Sub ЗапускМедиафайла()
    ПутьКФайлу = """E:\Music\NEW MUSIC\Blue System - Sorry Little Sarah.mp3"""
    CreateObject("WScript.Shell").Run ПутьКФайлу
End Sub

Про использование объекта WshShell можно почитать, например, здесь.

[Фернан]

Сообщение от EducatedFool

Назначьте картинке макрос ЗапускМедиафайла:

Sub ЗапускМедиафайла()
    ПутьКФайлу = """E:\Music\NEW MUSIC\Blue System - Sorry Little Sarah.mp3"""
    CreateObject("WScript.Shell").Run ПутьКФайлу
End Sub

Про использование объекта WshShell можно почитать, например, здесь.

Спасибо что ответили

Если чесно я плохо разбираюсь в скриптах.

Если не трудно не могли бы вы поподробнее расписать как назначить макрос на картинку, и.т.д

А лучше всего сделали бы небольшой образец.

Буду очень благодарен

[EducatedFool]

1) Щелкаем правой кнопкой на ярлычке листа, и выбираем пункт Исходный текст.
Откроется окно редактора VBA

2) Вставляем предварительно скопированный код макроса туда, где мигает курсор
(просто нажимаем Ctrl + V)

3) Изменяем в макросе путь к файлу - вместо E:\Music\NEW MUSIC\Blue System - Sorry Little Sarah.mp3 указываете полный путь к своему файлу.
Не забывайте про три двойных кавычки до и после пути к файлу. (они там уже есть, главное, их случайно не удалить)

4)Переключается обратно в Excel (закрываем редактор VBA)

5)Правой кнопкой на картинке, выбираем пункт Назначить макрос

6)В появившемся окне выбора макроса выбираем макрос ЗапускМедиафайла (он там один среди доступных)

6) Жмём ОК.

7) Щелкаем на картинке и наслаждаемся

[Фернан]

Спасибо, работает)
Еще один вопрос
дело в том что у меня одна папка в которой и файлы и эксель\
и если переместить эту папку на другой диск, то перестаёт всё работать
можно-ли как то избавится от привязку к диску?

[EducatedFool]

Используйте такой вариант:

Sub ЗапускМедиафайла()
    ИмяФайла = "header_b.jpg"
    ПутьКФайлу = Chr(34) & Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайла) & Chr(34)
    CreateObject("WScript.Shell").Run ПутьКФайлу
End Sub

Теперь никакой привязки к диску.
Изменяете только имя файла в строке ИмяФайла = "header_b.jpg"
Файл должен находиться в той же папке, что и файл Excel.

[Фернан]

EducatedFool, спасибо