宏放置的图片在放置时会慢慢获得“重叠”？

Question

我有一个宏，虽然我仍然有一个奇怪的错误，在This Question打开，我当前的问题是关于放置图像。

This Small Gallery显示放入图片单元格后的图片。你越往下走，越糟糕＆＃34;得到了，我无法弄清楚为什么。

相关的VBA脚本是：

With ActiveSheet.Shapes(i + 13)
        Debug.Print "Cell " & rng.Address & " | Cell Range: " & rng.Top & " " & rng.Left & " " & rng.MergeArea.Height & " " & rng.MergeArea.Width
       .LockAspectRatio = False
       .Top = Int(rng.Top + 1)
       .Left = Int(rng.Left)
       .Height = rng.MergeArea.Height
       .Width = rng.MergeArea.Width
        Debug.Print "Picture: " & .Top & " " & .Left & " " & .Height & " " & .Width

        End With

要预测我预期的一些评论：是的，rng已设定。它就在此之前设定。下面的控制台输出显示。是的，相应的形状是正确的 - 有13＆＃34;形状＆＃34;从模板开始，在此工作表上。

Debug.Print来电的某些控制台输出。

Cell $M$134 | Cell Range: 2038.5 519 180 243.75
Picture: 2039 519.0001 180 243.75
Cell $A$150 | Cell Range: 2278.5 0 180 243.75
Picture: 2279 7.874016E-05 180 243.75
Cell $G$150 | Cell Range: 2278.5 259.5 180 243.75
Picture: 2279 259.0001 180 243.75

小笔记添加了.Top=Int(Top.rng+1)和.Left = Int(rng.Left)来电，希望他们可以减轻＆＃34; underlap＆＃34; - 他们没有，我只是没有删除它们。

图片单元和图片本身如何具有相同的测量值和放置值，但仍未对齐？

解决

其中一条评论建议将缩放设置为常规，并修复它。我不知道为什么，但我很高兴我能继续解决这个问题。