Вставка анимированного GIF ??

Тихвинский В.И.
ВСТАВКА В WORD GIF ФАЙЛОВ ИЗОБРАЖАЮЩИХ АНИМАЦИЮ
В документ Word возможно вставить интерактивные файлы Gif. Недостаток в том, что работать они на ранних версиях программы будут в режиме отключения всех макросов с уведомлением. Т.е. определенный уровень работы макросов должен быть обеспечен. На современных версиях Word рисунки могут работать и с отключенными макросами, даже если файл Word-а сохранен без поддержки макросов,  но при внедрении картинок вам все равно придется включить макрорежим. Второй недостаток, Gif картинка должна быть достаточно небольшая, что бы помещалась по ширине на страницу документа, иначе ее не будет видно всю. Третий недостаток в том, что Gif файлы должны находится вне документа Word.   
Для вставки интерактивного  Gif необходимо сперва  вставить элемент ActiveX называемы WebBrowser (из набора дополнительных элементов Microsoft Web Browser), размер элемента пользователь изменяет мышью в режиме конструктора.  После вставки элемента необходимо программно прошить в его свойство Navigate2 путь к файлу Gif. Файл может находиться на вашем компьютере, в той же папке, где лежит ваш документ. В другом случае ссылка делается на файл, лежащий в интернете. Ниже приведен пример кода, который должен находиться в модуле ThisDocument вашего документа.   Подпрограмма с именем Document_New() будет запускаться каждый раз при загрузке вашего файла в Word. Если вы перетащите ваш документ в другую папку вместе с файлом с именем “Рис. 3.gif”, то подпрограмма автоматически переопределит ссылку на него. Ссылка на второй Gif файл записана как константа, и после выполнения кода, сторочка в подпрограмме WebBrowser2.Navigate2

Пардон, событее в подпрограмме должно быть Open()

Private Sub Document_Open()

'Путь к папке, где лежит документ
Dim path
path = Application.ActiveDocument.path + "\"

'Первый объект управления (Microsoft Web Browser), вставленный в активный документ
'задаем полное имя файла gif, которой лежит в той же папке, что и активный документ
WebBrowser1.Navigate2 path + "Рис. 3.gif"

'Второй объект управления (Microsoft Web Browser), вставленный в активный документ
'ссылка на картинку в интернет
WebBrowser2.Navigate2 "внешняя ссылка"

End Sub

Добрый день, Виталий!
Попробовал протестировать Вашу интересную разработку.
К сожалению, гифки у меня не заработали. Более того, в файле отобразились только неподвижные рисунки, а вместо подвижных - пустые прямоугольники.

Использую MS Office 2013.

Вашу папку я разместил на компьютере здесь: c:\ИстРеплики\

Напомните мне, пожалуйста, что такое "включение всех элементов ActiveX"? Где оно производится?

У меня работает в офисе 2010 и 2007. Настройки в офисе 2007 не знаю, но могу посмотреть.

Alex_Gur, после включения ActiveX, воспользуйтесь ссылкой ниже. Двойным кликом запускайте документ word, при первом запуске будет ошибка приложения, при втором гифки не заработают, закроите документ word и при третьем запуске файла гифки заработают нормально.
внешняя ссылка

В 2007 worde при открытии docx файла никаких ошибок при первых открытиях не было, файл открылся сразу и все гифки в нем заработали.

К сожалению, гифки не заработали. Их по-прежнему не видно.

А где у Вас записан макрос для чтения гифок?

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

Может быть проблема связана с тем, что в корневую директорию диска C для обычного пользователя чаще всего затруднен доступ.
Сегодня попробовал в Word 2013. Пока гифки не работают.

Ясно, Виталий!
Спасибо за интересное сообщение.

Продолжаем разговор на заданную тему.

Я нашел контрл работающий во всех офисах WindowsMediaPlayer. В окне свойств можно задать URL для гифки. В свойстве custom задать none(без элементов управления) и количество повторений.  Если нужно проигрывать гифку до бесконечности можно воспользоваться кодом, который должен находится в модуле ThisDocument

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState <> 8 Then
WindowsMediaPlayer1.Controls.play
End If
End Sub

Вроде все возможное проработано для всех версий Worda

Объек WindowsMediaPlayer может использоваться для создания gif анимации в документе word. WindowsMediaPlayer объект из дополнительного набора объектов ActiveX. В окне свойств WindowsMediaPlayer можно задать URL для гифки. В свойстве custom задать none(без элементов управления) и количество повторений, также задается автозапуск. Для зацикливания всех анимации всех гифок в модуле ThisDocument в событийной подпрограмме Document_Open() прописывается соответствующий фрагмент кода (см. код ниже). К сожалению переопределять зацикливания анимации приходится программно, после каждого нового запуска документа Word. Если gif файл с анимацией находится не в интернет ресурсе, а расположен в папке, где находится документ, то URL нему определяется программно (см. фрагмент кода ниже) .

Private Sub Document_Open()
'определение путь к файлу документа
Dim path
path = ActiveDocument.path
If Mid(path, Len(path)) <> "\" Then
path = path + "\"
End If
'программное задание свойства URL определяющее адрес для gif файла для объекта WindowsMediaPlayer1
'предполагается что файл с именем MyFile.gif лежит в той же директории, что и документ
WindowsMediaPlayer1.URL = path + "MyFile.gif"

'установка зацикливание для всех элементов WindowsMediaPlayer
Dim e
For i = 1 To ActiveDocument.InlineShapes.Count
'устанавливаем указатель на ообъект
Set e = ActiveDocument.InlineShapes(i).OLEFormat.Object
If InStr(e.Name, "WindowsMediaPlayer") <> 0 Then 'Если в имене объекта содержится текст WindowsMediaPlayer
e.settings.setMode "loop", True 'Устанавливаем зацикливание
End If
'снимаем указатель
Set e = Nothing
Next i

End Sub