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