Вставка gif-файлов, изображающих анимацию

Private Sub Document_Open()
 
'Путь к папке, где лежит документ
Dim path
 path = Application.ActiveDocument.path + "\"
 
'Первый объект управления (Microsoft Web Browser), вставленный в активный документ
'задаем полное имя файла gif, которой лежит в той же папке, что и активный документ
WebBrowser1.Navigate2 path + "Рис. 3.gif"
 
'Второй объект управления (Microsoft Web Browser), вставленный в активный документ
'ссылка на картинку в интернете
WebBrowser2.Navigate2 "http://tvitaly1.ucoz.ru/ris-4.gif"
 
End Sub

Sub ВставитьОбъектДляGif()
'
' ВставитьОбъектДляGif Макрос
' Макрос записан 21.07.2018 Тихвинский
'
Dim e As InlineShape, s As String
 
s = InputBox("Введите путь к ссылке файла GIF или нажмите Cancel", "Ввод ссылки к файлу GIF")
If s <> "" Then
If CommandBars("Control Toolbox").Visible = False Then
ActiveDocument.ToggleFormsDesign
End If
Set e = Selection.InlineShapes.AddOLEControl(ClassType:="Shell.Explorer")
e.OLEFormat.Object.Navigate2 s
ActiveDocument.ToggleFormsDesign
CommandBars("Control Toolbox").Visible = False
Set e = Nothing
End If
 
End Sub

Sub ВставитьОбъектДляGif()
'
' ВставитьОбъектДляGif Макрос
' Макрос записан 21.07.2018 Тихвинский
'
Dim e As InlineShape, s As String
   
s = InputBox("Введите ссылку к файлу GIF или нажмите Cancel", "Ввод ссылки к файлу GIF")
If s <> "" Then
Set e = Selection.InlineShapes.AddOLEControl(ClassType:="Shell.Explorer")
    e.OLEFormat.Object.Navigate2 s
 
 Set e = Nothing
End If
 
End Sub

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

'установка зацикливание для всех элементов 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

Private Sub Document_Open()
'определение путь к файлу документа
Dim path
path = ActiveDocument.path + "\"
'программное задание свойства URL определяющее адрес для gif файла для объекта WindowsMediaPlayer1
'предполагается что файл с именем MyFile.gif лежит в той же директории, что и документ
WindowsMediaPlayer1.URL = path + "MyFile.gif"
 
 
'установка зацикливание для всех элементов WindowsMediaPlayer
Dim e, i
For i = 1 To ActiveDocument.InlineShapes.Count
On Error GoTo m1
'устанавливаем указатель на объект
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
m1:
Next i
  
End Sub