BurcevD, Вам дали более чем дельный совет:
Shocker.ProПервое, что приходит в голову - SavePicture() на диск и потом вставить как файл
Там кода на пять строк:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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
