Bilder per VBA einfügen

Private Sub ComboBox2_Change()
Const strPATH = "C:\Desktop\Test\Bilder\"
Dim M As String
Dim rngZielZelle As Range
On Error Resume Next
ActiveSheet.Shapes("Bild_1").Delete
On Error GoTo 0
Set rngZielZelle = ActiveSheet.Cells(9, 3)
With ActiveSheet.Pictures.Insert(strPATH & Me.ComboBox2.Text & ".png")
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 45
End With
.Placement = xlMoveAndSize
.Top = rngZielZelle.Top + ((rngZielZelle.Height - .ShapeRange.Height) / 2)
.Left = rngZielZelle.Left + ((rngZielZelle.Width - .ShapeRange.Width) / 2)
Set Pic = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
Pic.Name = "Bild_1"
End With
End Sub