ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Chart Question Using VBA (https://www.excelbanter.com/excel-programming/415750-chart-question-using-vba.html)

Sandy

Chart Question Using VBA
 
How do I add a chart to he active worksheet? It always makes a new sheet.

Thanks

Tom Hutchins

Chart Question Using VBA
 
In the code where you are creating the chart, use a .Location statement to
tell Excel to place the chart as an object on a specified sheet (in this case
the active sheet). For example,

Dim sht As String
sht$ = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData _
Source:=Sheets(sht$).Range("A5:E26"), PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:=sht$

Hope this helps,

Hutch

"Sandy" wrote:

How do I add a chart to he active worksheet? It always makes a new sheet.

Thanks


Jim Thomlinson

Chart Question Using VBA
 
Step 4 of the chart wizard asks you where you want the chart to land. Ensure
that it is object in ??? sheet and not as new sheet...
--
HTH...

Jim Thomlinson


"Sandy" wrote:

How do I add a chart to he active worksheet? It always makes a new sheet.

Thanks


Sandy

Chart Question Using VBA
 
Tom, Thankyou - worked perfectly.

Can you tell me how to place the chart on the sheet where I want it?

Thanks again,

Sandy

"Tom Hutchins" wrote:

In the code where you are creating the chart, use a .Location statement to
tell Excel to place the chart as an object on a specified sheet (in this case
the active sheet). For example,

Dim sht As String
sht$ = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData _
Source:=Sheets(sht$).Range("A5:E26"), PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:=sht$

Hope this helps,

Hutch

"Sandy" wrote:

How do I add a chart to he active worksheet? It always makes a new sheet.

Thanks



All times are GMT +1. The time now is 05:13 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com