[RESOLVED] Plot graphs in excel

[dkny]

Hi guys,

I have two columns of data (columns A and B) and I want to plot a graph using these data. I know that by default Excel will put data inthe first column (A) on the X-axis and data in the second column (B) on the Y-axis. Is there a way to put the second column on the X-axis without switching the columns?

Thanks

[Siddharth Rout]

I'll give you a hint

Record a macro and follow the steps of creating a graph. When you are in the Step 2 of 4 Chart wizard, select the "Series" tab and make the relevant changes. when you are done i.e making the chart, stop the macro. You can amend the code later to suit your needs.

if you still get stuck...yell

We'll take it from there

[dkny]

Hi Koolsid,

Thanks for the hint. Actually I know how to do that. Here's my problem:

ActiveChart.SeriesCollection(1).XValues = ActiveSheet.Range(q)
ActiveChart.SeriesCollection(1).Values = ActiveSheet.Range(p)

First of all I don't know what the name of Sheet1 is going to be so I use Activesheet. Secondly, I have the following codes:

retVal = Create_Chart(Range1, Range2, Range3, TabName, "y vs. x", "y", "x")

Function Create_Chart(r As String, p As String, q As String, T As String, cT As String, xat As String, yat As String)
Range(xRange, yRange).Select
Range1 = Selection.Address
Range2 = yRange.Address
Range3 = xRange.Address

I get the message "Unable to set the Xvalues property of the Series Class"

[dkny]

Actually "Object doesn't support this property of method" is the message I get

[Siddharth Rout]

I recorded a macro and made changes... please make changes to suit your requirements... I have commented the code so that it is easy to understand...

Sub Macro4()
    'Select the range where the data is
    Range("B9:C13").Select
    'Add Chart
    Charts.Add
    'I am plotting a line chart. Change this to the charttype that you want
    ActiveChart.ChartType = xlLineMarkers
    
    'Set Sourece Data
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B9:C13"), PlotBy _
        :=xlColumns
    
    'Assign Values
    ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R9C3:R13C3"
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R9C2:R13C2"
    
    'Assign Series Names
    ActiveChart.SeriesCollection(1).Name = "=Sheet1!R8C2"
    
    'Location where you want to plot the chart
    'I am placing it in say sheet1
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    
    'Give title and do extra stuff...
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Blah Blah"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

[dkny]

Koolsid, thanks for your help. I found a way around it so I'm going to mark it as Resolved.