VBA 코드가 포함 된 Excel에서 콤보 차트 만들기

Question

기본 축의 막대와 보조 축의 막대가있는 콤보 차트를 만들려면 아래 코드를 어떻게 조정합니까?

두 개의 데이터 열이 있습니다.

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 

도움을 주시면 감사하겠습니다. 고맙습니다! 이 방법에 대해

Answer 1

는 :

Sub foo() 
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select 
    ActiveChart.SetSourceData Source:=Range("Sheet1!$C$1:$D$6") 'make sure the range is correct here 
    ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered 'select which column should be the Line or the Column 
    ActiveChart.FullSeriesCollection(1).AxisGroup = 1 
    ActiveChart.FullSeriesCollection(2).ChartType = xlLine 
    ActiveChart.FullSeriesCollection(2).AxisGroup = 1 
    ActiveChart.ChartTitle.Text = "Average Price and Dollar Volume of Sales" 
End Sub