excel - VBA通过表格中的行数确定图表类型

Question

我正在尝试编写一些 VBA，它将根据表中的行数自动生成某种类型的图表。我正在使用基于 lastrow 变量的 IF 循环，如下所示。我已经使用 F8 滚动浏览了代码，并且 lastrow 变量正在正确注册，但这不会影响出现的图表类型 - 它始终是柱形图，我猜这是默认设置......非常感谢任何帮助。

代码段：

With Worksheets("TableScores")
    lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
            ActiveSheet.Shapes.AddChart.Select
            If lastrow <= 3 Then
            .ChartType = xlBar
            Else:
            .ChartType = xlLine
            End If
End with

Answer 1

（未经测试）

With Worksheets("TableScores")
Dim cht as Chart
    Set cht = ActiveSheet.Shapes.AddChart()

    lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
    If lastrow <= 3 Then
        cht.ChartType = xlBar
    Else
        cht.ChartType = xlLine
    End If
End with