Question : Create chart with 2 Y axes in VBA

Hi,

I have code that basically created charts automatically with VBA.  But now I need to change it so that it is a chart with 2 Y axes.  What is the line of code to change this?  My code is as follows

Dim i, j As Integer
    Dim val As String
   
    Dim ws As Worksheet
    Set ws = Worksheets("RawData")
   
    j = 14
   
    For i = 2 To 71
        j = j + 1
        val = Sheets("Sheet1").Cells(j, 1).Value
        With ActiveWorkbook.Charts.Add
            .ChartType = xlLine
            .SetSourceData Source:=Sheets("RawData").Range("A1:E174," & val & "1:" & val & "174"), PlotBy:=xlColumns
                   
            .Location Where:=xlLocationAsNewSheet
            .HasTitle = True
            .ChartTitle.Characters.Text = Sheets("RawData").Cells(1, i + 4).Value
            .Axes(xlCategory, xlPrimary).HasTitle = False
            .Axes(xlValue, xlPrimary).HasTitle = False
           
        End With
    Next i

Thanks
D

Answer : Create chart with 2 Y axes in VBA

Hi lebeau26,

I think you can change the following lines:

  .ChartType = xlLine
  .SetSourceData Source:=Sheets("RawData").Range("A1:E174," & val & "1:" & val & "174"), PlotBy:=xlColumns
 
to

  .ApplyCustomType ChartType:=xlBuiltIn, TypeName:= "Lines on 2 Axes"
  .SetSourceData Source:=Sheets("Sheet1").Range("A1:E174," & val & "1:" & val & "174")

Note that this is a built-in type based on Excel 2003, I think it exists in previous version (but not certain). Alternatively you could create your own 2 axes chart type.


Thanks,

meltingWaldo