Let us assume that you have a userform with four picture controls displaying your images (you can have more or fewer as required) named Image1 to Image4 then the code for the userform would be
Option Explicit
Private Sub Image1_Click()
CopyToCell Image1
Hide
End Sub
Private Sub Image2_Click()
CopyToCell Image2
Hide
End Sub
Private Sub Image3_Click()
CopyToCell Image3
Hide
End Sub
Private Sub Image4_Click()
CopyToCell Image4
Hide
End Sub
Sub CopyToCell(oCtrl As Control)
Const TemporaryFolder = 2
Dim FSO As Object
Dim strImage As String
Dim oRng As Range
Set oRng = ActiveDocument.Tables(1).Cell(1, 1).Range
oRng.End = oRng.End - 1
oRng.Text = ""
Set FSO = CreateObject("scripting.filesystemobject")
strImage = FSO.GetSpecialFolder(TemporaryFolder).Path & "\" & FSO.gettempname
SavePicture oCtrl.Picture, strImage
oRng.InlineShapes.AddPicture strImage
FSO.deletefile strImage
lbl_Exit:
Set oRng = Nothing
Set FSO = Nothing
Exit Sub
End Sub
You can call the userform with a simple macro e.g.
Option Explicit
Sub AutoOpen()
ShowForm
End Sub
Sub ShowForm()
UserForm1.Show
Unload UserForm1
End Sub
Click one of the images to insert it in cell 1 - see attached.