Excel VBA - 从动态范围插入图表

【问题标题】：Excel VBA - Insert chart from dynamic rangeExcel VBA - 从动态范围插入图表
【发布时间】：2017-08-25 04:57:40
【问题描述】：

我有一个 vba 应用程序，它创建一个新工作表并将可变数量的值插入标题下方的前两列（A 列和 B 列总是有一个对应的值，我只是不知道有多少行将有）：

我想使用 vba 将一个简单的条形图嵌入到同一张表中的几列中，看起来像这样：

有没有一种简单的方法可以做到这一点？我尝试了一堆示例，但由于范围始终是可变的，因此似乎无法正确格式化。

【问题讨论】：

【解决方案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

【讨论】：