VBA中的Excel 2013 Clustered Column Chart

Question

我正在使用EXCEL VBA从两行数据创建一个新图表。 Excel版本是2013年。

在X轴上我有几年，在Y轴上我每年都有一些特定的值。

我面临的问题是，当我创建实际图表时，它将随机选择三种样式中的一种，如下面的屏幕截图所示。

我正在创建图表：

ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Union(Sheets(SheetName).Range(Cells(1, 11), Cells(1, LastColumnNumber)), Sheets(SheetName).Range(Cells(4, 11), Cells(4, LastColumnNumber)))

添加Sheets(SheetsName)的原因是我在创建图表后将图表移动到新图纸，因此需要保留参考。

LastColumnNumber用于计算去年的列数，它是相应的值。

我试过了：

ActiveChart.ChartType = xlColumnClustered

此外，我在更改样式时尝试录制新的宏，并且没有参数选择其中一个。

作为一种解决方法（但它在VBA中不起作用），我将图表样式更改为 Clustered Column 样式以外的其他样式，而不是选择我需要的样式。

P.S。我实际上需要在附加的打印屏幕中选择一个。

如何强制应用该样式？

Answer 1

据我所知，你需要这个：

Chart.PlotBy = xlColumns

或者这个：

Chart.PlotBy = xlRows

见上文：

Sub InsertBar(myRange As Range)

    Dim rngChart As Range
    Dim myChart As Chart

    Sheets(Operator.Value).Range("$A$10:$C$10").Select
    Set myChart = ActiveSheet.Shapes.AddChart(xlColumnClustered, 500, 10, , 175).Chart

    With myChart
        .PlotBy = xlColumns
        .ChartArea.Format.TextFrame2.TextRange.Font.Size = 8
        .HasTitle = True
        .ChartTitle.Text = "Title"
        .SeriesCollection(1).Name = Range("B" & StartRow - 1).Value
        .SeriesCollection(2).Name = Range("C" & StartRow - 1).Value
    End With
End Sub