为什么定位形状不精确?

时间:2018-08-10 18:14:24

标签: excel vba position

我无法将形状精确地定位在特定单元格的左上角。列越远越差,列FP比列A偏移更多。

我正在使用Excel 2016。

这里有一个非常简单的代码来演示我的问题。

Sub test()

Dim x As Double

Dim y As Double

x = Range("z1").Left

Selection.ShapeRange.Left = x

y = Selection.ShapeRange.Left

End Sub

该变量的值为x = 596.25和y = 596.549。

x和y的值应相等,因为我将形状左角强制设为x值。为什么不呢?

代码和变量值
enter image description here

3 个答案:

答案 0 :(得分:0)

尝试一下,让我知道如何进行!这仅适用于您选择的形状,如果需要通过引用特定形状来移动特定形状,请告诉我。

Sub test()
Dim x As Double
Dim y As Double

x = Range("Z1").Left
y = Range("Z1").Top
With Selection.ShapeRange
    .Left = x
    .Top = y
End With


End Sub

答案 1 :(得分:0)

您可以通过以下方式选择特定的单元格:

const renderDiv = () => {
  let div = document.createElement('div');
  div.innerHTML = 'Some text'
  document.body.appendChild(div);
}

您将需要弄清楚您正在使用哪个Shape#(示例使用4)

答案 2 :(得分:0)

我终于能够从C列开始查明问题。经过多次测试均未成功后,我终于以较小的增量更改了B列宽度,问题得以解决。

我不知道为什么,也许是Excel中的一个小故障。

谢谢所有试图帮助我的人。