2016-01-23 88 views
0

我有一个显示每行数据的条形图。我计划在列L的每一行都有1个图表。 宏记录器给我长期低效率的代码,我想合并成一行(标记为注释),这不幸不起作用。如果可能的话,我也想避免任何循环,例如For在没有SELECT的范围内复制/粘贴图表

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 

回答

0

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

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

或者这一个;

ActiveSheet.ChartObjects(1).Chart.Parent.Copy 
ActiveSheet.Paste ActiveSheet.Range("L7") 
相关问题