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 

私は「範囲」の値を変更する方法を、知りません - 私の選択を参照するようなステートメント。

私の質問を考えれば嬉しいです。

敬具、 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 

次のステップ - 、変数としてチャートを宣言し、選択を削除、などしかし、コードは[OK]を動作します。