Excel – macros根据select创build图表

我想就以下问题请求你的帮助:因为我必须创build大量的图表,我想有一个macros,它会根据我的select插入图表。 因为我对VBA没有任何线索,但是现在需要(现在至less – 我真的应该学会自己使用它),我会很感激你的帮助。 基本上,我需要知道如何调整我logging的代码,以便根据我的select插入图表:

Sub chartmacro() ActiveCell.Range("A1:E2").Select ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select ActiveChart.SetSourceData Source:=Range("Tabelle1!$A$1:$E$2") End Sub 

我不知道,如何改变“范围” – 语句中的值,使它们指的是我的select。

如果你能考虑我的问题,我会很高兴。

你真诚的,Sinistrum

这是我能为你做的。 你可以从这里走得更远。

 Option Explicit Sub Charter() Dim my_range As Range Set my_range = Selection ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=my_range Cells(1, 1).Select End Sub 

后续步骤 – 将图表声明为variables,删除select等,但代码工作正常。