Office: mehrere Bilder per VBA in Exceltabelle einfügen

Hallo Zusammen,

ich hatte für Excel 2007 ein Makro, mit welchem ich Bilder anhand des Bildpfades in eine Exceltabelle einfügen konnte.
Das Makro funktioniert zwar auch noch in Excel 2013, jetzt werden die Bilder aber nur noch als Verknüpfungen eingefügt.
Ich weiß, dass Picture.Insert seit Version 2010 nicht mehr funktioniert und der richtige Ausdruck Addpicture wäre, komme aber mit dem Code nicht klar.

Ursprungs-makro:
__________________________________
Sub Bilder_Einfuegen()
Dim Pfad As String, Wiederholungen As Long
Dim PicBild As Picture
Dim SaveWithDocument

Pfad = "C:\Neuer Ordner\"

Application.ScreenUpdating = False
LinkToFile = False

For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
If Trim(Cells(Wiederholungen, 1).Value) <> "" Then
If Dir(Pfad & Cells(Wiederholungen, 1).Value & ".jpg") <> "" Then
Set PicBild = ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1).Value & ".jpg")
With PicBild
.Top = Cells(Wiederholungen, 1).Top
.Left = Cells(Wiederholungen, 1).Left
.Height = Cells(Wiederholungen, 1).Height
.Width = Cells(Wiederholungen, 1).Width
End With
End If
End If
Next
Dim Picture As Shape
For Each Picture In ActiveSheet.Shapes
With Picture
.Height = 70
End With
Application.ScreenUpdating = True

Set PicBild = Nothing
Next
End Sub
_____________________________________________
neues Makro mit Addpicture:
Sub BilderEinfügenTestneu()
Dim Filename As String
Dim Wiederholungen As Long
Dim oShape As Shape
Dim SaveWithDocument As MsoTriState

For Wiederholungen = 1 To Range("A65000").End(xlUp).Row
Set oShape = ActiveSheet.Shapes.AddPicture(Filename:="C:\Neuer Ordner\ & Cells & .jpg", LinkToFile:=msoFalse, _
SaveWithDocument:=msoCTrue, Left:=0, Top:=0, Width:=-1, Height:=-1)

Next
End Sub

Ich habe schon alles Mögliche versucht. Teilweise hat die Syntax nicht gestimmt dann wurde das Objekt nicht gefunden.

Würde mich freuen wenn mir Jemand eine Lösung sagen könnte.

Vielen Dank
Andreas