Excel VBA-從動態范圍插入圖表

Question

我有一個vba應用程序，該應用程序創建一個新工作表並將可變數量的值插入到標題下方的前兩列中（A和B列始終具有對應的值，我只是不知道會有多少行是）：

我想使用vba將一個簡單的條形圖嵌入幾張表，看起來像這樣：

有沒有簡單的方法可以做到這一點？ 我嘗試了很多示例，但由於范圍始終是可變的，因此似乎無法正確設置格式。

Answer 1

這是我使用的基本設置。 您可以添加許多格式來添加數據標簽，刪除網格線，更改標題等。您可以在進一步了解VBA之前考慮學習定義范圍。

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