Have you tried placing the graphic in the clipboard and then just pasting it
into the current cell?  If the graphic is too squirelly and doesn't paste in
the correct location, then what I do with client letterhead is create a table
with the grapic in another document, then I copy the whole table and paste it
into the needed location.  Just make sure the table dimensions are the same
as the row you need to add.

Hope this helps.  zkid

hals_left was telling us:
hals_left nous racontait que :

The easiest by far would be to store the Image as an AutoText entry in the
Attached Template if there is one.
Make sure that the AutoText entry has a unique name.
Also, try to avoid using the Selection object. The Range object is faster
and more reliable:

'_______________________________________
Dim TargetTable As Table

Set TargetTable = ActiveDocument.Tables(3)

With TargetTable
   .Rows.Add

   With .Rows(TargetTable.Rows.Count - 1)
       .Cells(1).Range.Text = objRS("ID")

       .Cells(2).Range.Text = objRS("Name")

       If objRS("Selected") = "1" Then
          With .Cells(3).Range
               .Collapse wdCollapseStart
               .InsertSymbol CharacterNumber:=-3844, _
                   Font:="Wingdings", Unicode:=True
           End With
       End If

   ' How to do this part ?
       With .Cells(4).Range
           .Text = "Name of AutoText Entry"
           .MoveEnd wdCharacter, -1
           .InsertAutoText
       End With
'Selection.Contents = Copy a gif image from another table cell or
'import it from file ?
   End With

End With
'_______________________________________

If the autotext way in not possible, try this version which assumes that the
image already exists in the fourth cell of the second row.

'_______________________________________
Dim TargetTable As Table
Dim SourceRange As Range

Set TargetTable = ActiveDocument.Tables(3)

With TargetTable
   .Rows.Add

   With .Rows(TargetTable.Rows.Count - 1)
       .Cells(1).Range.Text = objRS("ID")

       .Cells(2).Range.Text = objRS("Name")

       If objRS("Selected") = "1" Then
          With .Cells(3).Range
               .Collapse wdCollapseStart
               .InsertSymbol CharacterNumber:=-3844, _
                   Font:="Wingdings", Unicode:=True
           End With
       End If

   ' How to do this part ?
       Set SourceRange = TargetTable.Cell(2, 4).Range
       SourceRange.MoveEnd wdCharacter, -1
       .Cells(4).Range.FormattedText = SourceRange

'Selection.Contents = Copy a gif image from another table cell or
'import it from file ?
   End With

End With
'_______________________________________