Excel VBA - ダイナミックレンジのグラフを挿入

Question

私は新しいシートを作成し、ヘッダーの下の最初の2つの列に可変数の値を挿入するvbaアプリケーションを持っています（列AとBは常に対応する値を持ち、私はちょうど）があるでしょうどのように多くの行を知らない：

が

私はこのような種類の見える同じシートにいくつかの列の上に簡単な棒グラフを埋め込むために、VBAを使用したいです：

これを行う簡単な方法はありますか？私はたくさんの例を試しましたが、範囲が常に可変であるために正しい書式設定が得られないようです。

Answer 1

これは私が使用する基本的な設定です。多くの書式を追加してデータラベルを追加したり、グリッド線を削除したり、タイトルを変更したりすることができます。

Sub AddGraphs() 

    'Set the dynamic ranges 
    LR = Cells(Rows.Count, 1).End(xlUp).Row 
    LC = Cells(1, Columns.Count).End(xlToLeft).Column 

    'Create the chart 
    Charts.Add 
    With ActiveChart 
     .ChartType = xlColumnClustered 
     .SetSourceData Source:=Range(Cells(1, 1), Cells(LR, LC)) 
     .Location xlLocationAsObject, "Sheet1" 
    End With 

    'Format chart and set location 
    With ActiveChart 
     .Parent.Top = Cells(1, LC + 3).Top 
     .Parent.Left = Cells(1, LC + 3).Left 
     .HasLegend = False 
    End With 

End Sub