为什么插入的图片越往后向下偏移越大

lwt

Sub 对号插图()Dim st As String, c As Integer, i As Integer
  For c = 1 To 2000
    If Cells(c, 1) = "" Then
       st = ""
    Else:
       st = ActiveSheet.Cells(c, 1).Value
        With ActiveSheet.Pictures.Insert("D:\360data\桌面\111\" & st)
           .Select
           .ShapeRange.LockAspectRatio = msoFalse
           .Placement = xlMoveAndSize
           .ShapeRange.Left = Cells(c, 2).Left
           .ShapeRange.Top = Cells(c, 2).Top
           .ShapeRange.Height = Cells(c, 2).Height
           .ShapeRange.Width = Cells(c, 2).Width
                    End With
    End If
  Next c
End Sub

lwt

没人知道什么问题吗

ghostjiao

没发现问题，把附件和图片上传上来看看