Gif анимация на форме внутри xlam-надстройки

[Maksim_V]

Добрый день!
Моя задача - проигрывать на форме gif анимацию. Я сделал это с условием что файл gif размещен где-то на компьютере, так:

Private Sub UserForm_Initialize()
    Me.WebBrowser1.Navigate2 mygif
End Sub

Function mygif() As String
    mygif = "C:\Users\verkhovtsev_me\Desktop" & "\mygif.gif"
End Function

Однако, так как у меня надстройка (xlam), которая направляется другим пользователям, файл gif должен быть встроен и проигрываться из тела надстройки. Я вставил на Лист2 (в теле надстройки) gif (назвал Image1),пытался по аналогии сочинить конструкцию, типа:

Function mygif() As String
    mygif = ThisWorkbook.Worksheets("Лист2").Shapes.Range(Array("Image1"))
End Function

Но не работает. Перебрал много всего, не выходит.
Может кто-то подскажет корректную конструкцию кода для моего случая?

[Казанский]

Файл gif нужно встроить в надстройку, см. например
http://www.cyberforum.ru/vba/thread7...ml#post3285777
и ниже сообщение #24.
При запуске надстройка должна выгрузить файл в %TEMP% и передать его путь в браузер. При завершении работы надстройки файл желательно удалить.

[Maksim_V]

Спасибо, Казанский! Я уже начал прорабатывать этот вариант, но надеялся что может быть решение попроще, придется так...