Private WrdApp As New Word.Application
 
Private Sub BildLaden(Byval sPfadBild As String, _
                                                  Byval sWordDoc As String, _
                                                  Byval lTop As Long, _
                                                  Byval lLeft As Long, _
                                                  Byval lHeight As Long, _
                                                  Byval lWidth As Long)
 
     If Dir(sPfadBild)="" Then Exit Sub
     If Dir(sWordDoc)="" Then Exit Sub
 
     With WrdApp
          .Documents.Open sWordDoc
          .ActiveDokument.Shapes.AddPicture SPfadBild, Top:=lTop, _
            Left:=lLeft,Height:=lHeight, Width:=lWidth
         .Visible = True
     End With
End Sub