如何在VBA，Excel中复制和select图表，图片等
我有代码复制图表作为图片AChart.CopyPicture我想将它粘贴到Destination as Worksheet ，但将它粘贴为原始表中，我复制我的图表从相同的位置。 （所以使用AChart.Left和AChart.Top ）
如果我只有一个图表在我的源和目标表中，这对我来说是非常直接的，但是我有很多图表。
所以我build议的灵魂是粘贴它后立即select新的图表，并将.Left和.Top设置为正确的值。 我只是不知道如何select刚刚粘贴的Piture？
我的想法并不是特别设置在这个解决scheme上，我很清楚它可能会导致XY问题 。 所以请从不同的angular度来解决我的问题。
您应该能够使用Selection对象修改粘贴的图表。 Destination表也需要成为活动工作表。 如果要复制源表中的每个图表，可以使用For Each循环。
Destination.Activate For Each cht In Source.ChartObjects cht.CopyPicture Destination.Paste Selection.Left = cht.Left Selection.Top = cht.Top Next cht