Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
charts fucntion help needed
Hi all,
I am Using MS office 2003. I want to create chart using VBA. I have written the folowing function. Public Function AddChartSheet(ByVal x As Long, ByVal y As Long, ByVal z As Long) Sheet1.Activate Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheet1.Range(Cells(z + 1, 2), Cells(x - 1, y - 1)), PlotBy:= _ xlColumns ActiveChart.Location Whe=xlLocationAsNewSheet End Function and calling this function in my main program. But I am geeting and error "Method of cells of object _Global Failed". Can any one suggest. Regards, Srinivas |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
charts fucntion help needed
Hi,
You probably need to fully qualify the Cells object, especially if Charts.add is creating a new chart sheet which does not have cells. Cheers Andy srinivas wrote: Hi all, I am Using MS office 2003. I want to create chart using VBA. I have written the folowing function. Public Function AddChartSheet(ByVal x As Long, ByVal y As Long, ByVal z As Long) Sheet1.Activate Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheet1.Range(Cells(z + 1, 2), Cells(x - 1, y - 1)), PlotBy:= _ xlColumns ActiveChart.Location Whe=xlLocationAsNewSheet End Function and calling this function in my main program. But I am geeting and error "Method of cells of object _Global Failed". Can any one suggest. Regards, Srinivas -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
charts fucntion help needed
Hi Andy,
I got the answer. Thanks a lot for your help. Public Function AddChartSheet(ByVal x As Long, ByVal y As Long, ByVal z As Long) Dim ws As Worksheet Set ws = Worksheets(1) Sheet1.Activate 'temp = Sheet1.Range(Cells(z + 1, 2), Cells(x - 1, y - 1)) Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=ws.Range(ws.Cells(z + 1, 2), ws.Cells(x - 1, y - 1)), PlotBy:= _ xlColumns 'ActiveChart.ChartType = xlXYScatterLines ActiveChart.Location Whe=xlLocationAsNewSheet 'With ActiveChart ' .HasTitle = False ' .Axes(xlCategory, xlPrimary).HasTitle = False ' .Axes(xlValue, xlPrimary).HasTitle = False ' End With End Function Regards, Srinivas Andy Pope wrote: Hi, You probably need to fully qualify the Cells object, especially if Charts.add is creating a new chart sheet which does not have cells. Cheers Andy srinivas wrote: Hi all, I am Using MS office 2003. I want to create chart using VBA. I have written the folowing function. Public Function AddChartSheet(ByVal x As Long, ByVal y As Long, ByVal z As Long) Sheet1.Activate Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheet1.Range(Cells(z + 1, 2), Cells(x - 1, y - 1)), PlotBy:= _ xlColumns ActiveChart.Location Whe=xlLocationAsNewSheet End Function and calling this function in my main program. But I am geeting and error "Method of cells of object _Global Failed". Can any one suggest. Regards, Srinivas -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help desperately needed with excel charts | Excel Discussion (Misc queries) | |||
IF Fucntion Help! | Excel Discussion (Misc queries) | |||
Help needed for plotting charts/graphs | Excel Discussion (Misc queries) | |||
Help Needed for Charts | Excel Discussion (Misc queries) | |||
daily csv file needed into automatic web charts? | Excel Programming |