[VB2005]adding second y-axis to chart

bellaelysium · June 16th, 2008, 04:15 AM

I need to use VB 2005 studio to create chart in Excel.

I actually record the Excel macro while inserting chart and all.
And now I have the VBA code.
However, I tried inserting into my VB 2005 and modify,
but I have some errors.

here's the VBA code:
================================================== ==

Code:

Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Copy of 

trial").Range("A1:H23"), _
        PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Animal Rack Monitor"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 

"Time/Date"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 

"Measurements"
    End With
    With ActiveChart.Axes(xlCategory)
        .HasMajorGridlines = True
        .HasMinorGridlines = True
    End With
    With ActiveChart.Axes(xlValue)
        .HasMajorGridlines = True
        .HasMinorGridlines = True
    End With
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlRight
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 57
        .Weight = xlMedium
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlNone
        .MarkerForegroundColorIndex = xlNone
        .MarkerStyle = xlNone
        .Smooth = False
        .MarkerSize = 3
        .Shadow = False
    End With
    ActiveChart.SeriesCollection(1).AxisGroup = 2
    ActiveChart.SeriesCollection(4).Select
End Sub

================================================== ==
and the code i did in VB 2005 which is working ok:

=================================================

Code:

        Dim objExcelC As Excel.Chart


        WExcel.Charts.Add()
        objExcelC = WBook.ActiveChart
        objExcelC.Activate()

        objExcelC.ChartType = Excel.XlChartType _
.xlLineMarkers
        objExcelC.SetSourceData(Source:=range)

        objExcelC.Name = "ARM Chart"
        objExcelC.HasTitle = True
        'objExcelC.ChartTitle.Text = _
"Animal Rack Monitor"



    End Sub
End Class

================================================== ======
So can anyone guide me?

Some errors occurs when I attempt to convert are like xlLines, xlColumns are not declared....etc.

HELP??!!

BrianWren · June 16th, 2008, 11:45 AM

It would be helpful if you would edit your original post, and put a line continuation character on the really long lines, and shorten them. The browser makes a text area as wide as the widest line. Because of that, to read your question one needs to scroll horizontally... Difficult.

For instance:

Code:

    Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, _
                                       ByVal e As System.ComponentModel.CancelEventArgs) _
                                       Handles OpenFileDialog1.FileOk

Now. You say, âSome errors [which occur] when I attempt to convert are like xlLines, xlColumns are not declared....etc.â It would be helpful if you could say what those âerrorsâ were specifically (not the error [u]number</u>, but the message itself), and specify which line those errors are raised on.

bellaelysium · June 17th, 2008, 01:16 AM

hi..sorry abt that.

Already edited. :)

So far, I edited again and wrote the code and the graph work. But I got problem with this line of code to convert to VB.

I need some guidance in adding second y-axis into the chart.

here's the VBA code where I select one data to display as second y-axis ( I recorded the Excel Macro):

Code:

ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).AxisGroup = 2

The graph and all run to what I want.

But now, I want only one series of data to be plot themselves in second y-axis instead of me selecting it.
the ideal graph I manually plot in in the attachment.

Any guidance? Thanks!