Excel - 基于选择创建图表的宏

Question

我想就以下问题寻求您的帮助:
因为我必须创建大量图表，我想要一个宏来根据我的选择插入图表。
由于我对 VBA 没有任何线索，但现在需要它(至少现在 - 我真的应该学会自己使用它)，我将感谢您的帮助。
基本上，我需要知道如何调整我记录的代码，以便根据我的选择插入图表:

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

我不知道如何更改“范围”语句中的值，以便它们引用我的选择。

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

此致，
正弦乐队

Answer 1

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

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

下一步 - 将图表声明为变量，删除选择等。但代码工作正常。