小编K.R*_*.R.的帖子

如何调整下面的代码以创建一个组合图表，其中条形图为主轴，线条为次轴？

我有两列数据。

Sub CreateChart()
    Dim rng As Range
    Dim cht As Object

    Set rng = ActiveSheet.Range("C1:D6")
    Set cht = ActiveSheet.Shapes.AddChart2

    cht.Chart.SetSourceData Source:=rng

    cht.Chart.ChartType = xlColumnClustered

    cht.Chart.HasTitle = True
    cht.Chart.ChartTitle.Text = "Average Price and Dollar Volume of Sales"

End Sub

任何帮助，将不胜感激！谢谢你！