Вставка рисунка в Word

Option Explicit
 
Dim WordApp As Word.Application '  экземпляр приложения
Dim DocWord As Word.Document '  экземпляр документа
Dim FileForSave As String
 
Private Sub Command1_Click()
      FileForSave = App.Path & "\123.doc"
      Set WordApp = New Word.Application
      WordApp.Visible = True
      Set DocWord = WordApp.Documents.Add
      DocWord.Activate
      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       With DocWord.Application
               .ActiveDocument.Select
               .Selection.TypeText Text:="""123456789"""        ' текст с кавычками
                Clipboard.Clear
                Clipboard.SetData Me.Picture, vbCFBitmap       ' копируем картинку на формы в буфер
               .Selection.TypeParagraph
               .Selection.PasteSpecial
               Set oPara1 = DocWord.Content.Paragraphs.Add(DocWord.Bookmarks("\endofdoc").Range)
                 .Selection.oPara1.Range.Text = "Уведомление"
                 .Selection.oPara1.Range.InsertParagraphAfter
                 .Selection.EndOf
       End With
       
      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      DocWord.SaveAs FileForSave
      DocWord.Close True
      WordApp.Quit True
      Set DocWord = Nothing
      Set WordApp = Nothing
      MsgBox "Готово" & vbCrLf & "Файл сохранён как " & FileForSave, vbInformation, " "
End Sub