Excel 2007 Pictures.insert methodu Hk.

[skyusb]

Excel 2003 de çalışan kodum 2007 versiyonunda çalışmıyor.
Kodum :

                If Trim(rstRecortset(4).Value) <> "" Then
                Sheet3.Cells(i, 6).Select
                ActiveSheet.Pictures.Insert(Trim(rstRecortset(4).Value)).Select
                Selection.ShapeRange.LockAspectRatio = msoTrue
                Selection.ShapeRange.Height = 100#
                Selection.ShapeRange.Width = 100#
                Selection.ShapeRange.Rotation = 0#
                Sheet3.Range("A" & i, "F" & i).Select
                Sheet3.Cells(i).RowHeight = 100
                Selection.RowHeight = 100
            End If

Çalışmıyor derken resimlerin hepsini B2 hücresine atıyor.