Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert a chart on another sheet
I have a macro that copies data from one workbook and then creates a new
workbook with a two data sheets and then I have sheets for the various charts. When I go to create the charts the charts always end up on the first sheet in my workbook. Before I create the chart I do the following to goto the correct sheet: Sheets("Cond On Temp").Select Then I have the following: Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Sheets("Cond On Temp").Range("A1") ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=DataTable!R2C1:R26C1" ActiveChart.SeriesCollection(1).Values = "=DataTable!R2C3:R26C3" ActiveChart.SeriesCollection(1).Name = "=DataTable!R1C3" ActiveChart.Location Whe=xlLocationAsObject, Name:="Cond On Temp" ActiveChart.HasLegend = True ActiveChart.Legend.Select Selection.Position = xlBottom Cond on Temp is a normal Excel sheet. Why is my chart not being placed on the correct Excel sheet? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert a chart on another sheet
The method Charts.Add will always add a new chart sheet to the workbook. A
chart that is embedded on another sheet is actually in a "container" called a chartobject. You need to create the chartobject instead of using Charts.Add. You can create one this way (you need to specify the location and size using Left, Top, Width and Height): Dim MyChartObj as ChartObject, MyChart as Chart Set MyChartObj = Sheets("Cond On Temp").ChartObjects.Add (Left, Top, Width, Height) Set MyChart = MyChartObj.Chart With MyChart .ChartType = xlXYScatterSmooth .SetSourceData Source:=Sheets("Cond On Temp").Range("A1") ...etc End With -- - K Dales "Dwaine Horton" wrote: I have a macro that copies data from one workbook and then creates a new workbook with a two data sheets and then I have sheets for the various charts. When I go to create the charts the charts always end up on the first sheet in my workbook. Before I create the chart I do the following to goto the correct sheet: Sheets("Cond On Temp").Select Then I have the following: Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Sheets("Cond On Temp").Range("A1") ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=DataTable!R2C1:R26C1" ActiveChart.SeriesCollection(1).Values = "=DataTable!R2C3:R26C3" ActiveChart.SeriesCollection(1).Name = "=DataTable!R1C3" ActiveChart.Location Whe=xlLocationAsObject, Name:="Cond On Temp" ActiveChart.HasLegend = True ActiveChart.Legend.Select Selection.Position = xlBottom Cond on Temp is a normal Excel sheet. Why is my chart not being placed on the correct Excel sheet? Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert a chart on another sheet
Thanks, that worked.
"K Dales" wrote: The method Charts.Add will always add a new chart sheet to the workbook. A chart that is embedded on another sheet is actually in a "container" called a chartobject. You need to create the chartobject instead of using Charts.Add. You can create one this way (you need to specify the location and size using Left, Top, Width and Height): Dim MyChartObj as ChartObject, MyChart as Chart Set MyChartObj = Sheets("Cond On Temp").ChartObjects.Add (Left, Top, Width, Height) Set MyChart = MyChartObj.Chart With MyChart .ChartType = xlXYScatterSmooth .SetSourceData Source:=Sheets("Cond On Temp").Range("A1") ...etc End With -- - K Dales "Dwaine Horton" wrote: I have a macro that copies data from one workbook and then creates a new workbook with a two data sheets and then I have sheets for the various charts. When I go to create the charts the charts always end up on the first sheet in my workbook. Before I create the chart I do the following to goto the correct sheet: Sheets("Cond On Temp").Select Then I have the following: Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Sheets("Cond On Temp").Range("A1") ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=DataTable!R2C1:R26C1" ActiveChart.SeriesCollection(1).Values = "=DataTable!R2C3:R26C3" ActiveChart.SeriesCollection(1).Name = "=DataTable!R1C3" ActiveChart.Location Whe=xlLocationAsObject, Name:="Cond On Temp" ActiveChart.HasLegend = True ActiveChart.Legend.Select Selection.Position = xlBottom Cond on Temp is a normal Excel sheet. Why is my chart not being placed on the correct Excel sheet? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
insert sheet tab is not functioning and can't add new sheet | Excel Worksheet Functions | |||
How can I insert a chart on a separate sheet on the workbook | Excel Discussion (Misc queries) | |||
Can not insert chart in Excel 2007? Chart does not work right? | Excel Discussion (Misc queries) | |||
HELP required: Insert -> Hyperlink -> ???(no CHART sheet name)!!! | Excel Worksheet Functions | |||
Inserting a row in sheet A should Insert a row in sheet B, removing a row in Sheet A should remove the corresponding row in sheet B | Excel Programming |