Bild aus Datei an bestimmten Platz einfügen

Sub test()
' mit diesem Code will ich eine Inventurnummer aus Zelle B3 auslesen,
' und je nach Nummer soll die Bilddatei IV100.bmp, IV200.bmp je nach text in B3
' usw... in die Tabelle1 an einen bestimmten Platz, Cells(5,5) eingefügt werden
Dim objshape As Object
Dim name As String
name = Tabelle1.Range("B3").Value & ".bmp"
Set objshape = ActiveSheet.Pictures.Insert("Z:\Personal\Eigene\Egon\  ") & name
With objshape
.Top = Cells(5, 5).Top
.Left = Cells(5, 5).Left
End With
End Sub