Question

我正在尝试编写一些VBA，它会根据表中的行数自动生成某种类型的图表。我正在使用IF循环，如下所示，基于lastrow变量。我已经使用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

VBA用于按表中的行数确定图表类型

1 个答案: