使用VBA选择性粘贴时，原数据区域下方表格位置发生变动

langtaoshayin · 发表于 2023-6-27 10:37

我最近写了一段代码，用于复制并在同一个sheet内新增表格及其图表。之前一切都正常，后来我发现调整列宽时图表大小会变化，所以就录制宏并根据宏代码加了两行：

ch.activate
selection.placement=xlfreefloating

然后就发现，当我第一次运行这个宏时，运行到选择性粘贴这行（见下图）时，原数据区域下方的图表就会上移一段距离。注释上面空值图表大小不变的两行代码问题仍在，而且多次运行这个宏时，只有第一次会出这个问题，后面都正常。

求解决办法，谢谢。

512008404 · 发表于 2023-6-27 11:06

本帖最后由 512008404 于 2023-6-27 11:22 编辑

图表复制正常，没有测试出您说的问题。

langtaoshayin · 发表于 2023-6-27 12:00

本帖最后由 langtaoshayin 于 2023-6-27 12:06 编辑

512008404 发表于 2023-6-27 11:06
图表复制正常，没有测试出您说的问题。

啊，我还在公司另外一个同事那测试了，也有这个问题我才来发帖的

512008404 · 发表于 2023-6-27 13:34

还是测试不出来您描述的问题，想了一个变通的方法解决此问题。在程序最后增加一段代码重新设置图表的位置。
比如当前文件名称是“Chart 18",把它重置在单元格A19中。
希望对解决您的问题有所帮助！

Public Sub test()
For Each obj In Sheet3.ChartObjects
If obj.Name = "Chart 18" Then Exit For
Next

obj.Left = Sheet3.Range("A19").Left
obj.Top = Sheet3.Range("A19").Top
End Sub

langtaoshayin · 发表于 2023-6-28 11:20

512008404 发表于 2023-6-27 13:34
还是测试不出来您描述的问题，想了一个变通的方法解决此问题。在程序最后增加一段代码重新设置图表的位 ...

好的，我试试。非常感谢！

langtaoshayin · 发表于 2023-6-28 15:17

经过测试，只要将第一个图表的属性改一下就好了

		自动登录	找回密码
密码			免费注册

[求助] 使用VBA选择性粘贴时，原数据区域下方表格位置发生变动