首页 文章

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

提问于
浏览
0

我有一个vba应用程序,它创建一个新工作表,并在一个 Headers 下面的前两列插入可变数量的值(列A和B将始终具有相应的值,我只是不知道将有多少行是):

Example

我想使用vba在同一张表格中嵌入一个简单的条形图几列,看起来像这样:

Example 2

有没有一种简单的方法来实现这一目标?我已经尝试了一些示例,但由于范围始终可变,似乎无法使格式正确 .

1 回答

  • 0

    这是我使用的基本设置 . 您可以添加大量格式来添加数据标签,删除网格线,更改 Headers 等 . 在进一步了解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
    

相关问题