MSWord, Вставка изображения из формы в документ - VB

Формулировка задачи:

Добрый день.
Подскажите пожалуйста способ, как вставить изображение, которое хранится в пользовательской форме (в макросах) в документ в текущую выделенную позицию.

Решение задачи: «MSWord, Вставка изображения из формы в документ»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
Dim stmp As String
stmp = Environ("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".jpg"
SavePicture Me.Image1.Picture, stmp
Selection.InlineShapes.AddPicture stmp, LinkToFile:=False, SaveWithDocument:=True
On Error Resume Next
Kill stmp
If Err.Number <> 0 Then
    MsgBox "Что-то пошло не так, картинка осталась на диске: " & stmp
End If
End Sub

                        