随着行的增加，单元格的居中形状从顶部开始增加高度

Question

我有一个宏，该宏正在从另一张纸上获取信息并进行重新格式化。下方的第5行应该有一张图片，并且在接下来的行中正确输入了所有其他信息。随着行数的增加，从单元格顶部到图像的距离也增加。例如，如果第一个形状是距离指定单元格顶部5个像素的像素，则下一个形状将是6个像素，依此类推。如果这是一个简单的趋势，我可以添加一个变量来适应这种情况，但是所有图像的大小都略有不同，因此为什么我要动态地这样做。

到目前为止，如上所述，我已经尝试通过使用变量来静态地执行此操作来说明增加，但是没有成功。下面是我当前正在使用的似乎无效的代码。

 If CopyPicFromCell(shtSource.Range("A1").Offset(i - 1, 2)) Then
    'copied the picture, so paste to shtDest
    shtDest.Paste
    With shtDest.Shapes(shtDest.Shapes.Count)
        .Top = shtDest.Range("A1").Offset(x - 3, 0).Top + ((shtDest.Range("A1").Offset(x - 3, 0).Height - .Height) / 2)
        .Left = shtDest.Range("A1").Offset(x - 3, 0).Left + (shtDest.Range("A1").Offset(x - 3, 0).Width - .Width) / 2
    End With
 End If

这始终使图像从左到右居中，但似乎并没有垂直完成操作。请告知是否需要其他信息。谢谢！