在没有SELECT的范围内复制/粘贴图表

时间:2016-01-23 12:49:10

标签: excel vba

我有一个条形图,显示每行的数据。我打算在L列中为每一行设置一个图表。 宏录制器为我提供了长而低效的代码,我希望将其合并为一行(标记为注释),但遗憾的是,这些代码无效。如果可能的话,我还想避免任何周期,例如For

    ActiveSheet.ChartObjects("Chart 4").Activate
    ActiveChart.ChartArea.Copy
    Range("L7").Select
    ActiveSheet.Paste
    Range("L8").Select
    ActiveSheet.Paste

    'ActiveSheet.ChartObjects("Chart 4").Copy Destination:=ActiveSheet.Range("L7:L8")

'Later I have a code to adapt each graph to the row it is in

1 个答案:

答案 0 :(得分:0)

如果您不想使用select语句,可以使用以下代码...

ActiveSheet.ChartObjects(1).Chart.ChartArea.Copy

或者这个;

ActiveSheet.ChartObjects(1).Chart.Parent.Copy
ActiveSheet.Paste ActiveSheet.Range("L7")