excel - 复制/粘贴图表

Question

我来这里是因为我有这个让我发疯的问题。我在互联网上找不到类似的东西（也许是因为没有图像很难解释）。

这是问题所在：-我想使用宏从工作表中复制箱形图，并使用以下代码将其粘贴到另一张工作表上（因为我正在运行 for 循环，所以我在工作表中的坐标上使用了一些变量）：

Sheets(s + 4).Select
ActiveSheet.ChartObjects("Gráfico 9").Activate
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
Sheets("Print").Select
ActiveSheet.Cells(l + 22, 3).Select
ActiveSheet.Paste

• 使用此代码，我得到如下内容：
  https://pasteboard.co/JcIPqxR.png
  如您所见，“Cmin”值的格式非常奇怪（,320.0），因为表中的值仅为 0， 32.

• 一旦我手动复制并粘贴它，即使在使用宏之后，我也会在图表上获得 0,32。

• 如果我只是右键单击然后“选择数据”并直接取消而不进行任何修改，这也有效。
• 如果我更改表格上显示的小数大小写，它也会恢复正常，但是更改 4800 个表格会很费力。

我什至尝试创建一个额外的宏来更改某些表值的十进制大小写，但它使事情变得更糟，完全改变了图表中显示的值。
在这种情况下，前面所说的方法仍然可以纠正问题。

你有解决这个问题的建议吗？

我的 excel 版本是在 Windows 10 上运行的 2013。

提前感谢您的关注。

迪奥戈，

标签： excelvbaexcel-charts