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

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

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

您诚挚的， Sinistrum

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

后续步骤 - 将图表声明为变量，删除选择等。但代码可以正常工作。

Excel - 宏根据选择创建图表

1 个答案: