我有一个条形图,显示每行的数据。我打算在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
答案 0 :(得分:0)
如果您不想使用select语句,可以使用以下代码...
ActiveSheet.ChartObjects(1).Chart.ChartArea.Copy
或者这个;
ActiveSheet.ChartObjects(1).Chart.Parent.Copy
ActiveSheet.Paste ActiveSheet.Range("L7")