Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Dynamic chart problem
Hi,
I have a data table where i need to create a chart from. The data for the chart is in column A (week numbers) and the actual data is, depending on some situations on column G, or in column N, ... every chart need the Week column. I wrote something like (snipset): Dim ChartWeekSource As Range Dim ChartDataSource As Range 'Add chart(s) While Trim(UnitFamilyList(Dummy)) < "" Windows(datafilename).Activate Sheets(UnitFamilyName2).Select Cells(3, MyOffset).Select ChartTitle = Selection.Offset(-1, -5).Value Selection.Offset(0, -2).Select LastRow = Range(Selection, Selection.End(xlDown)).Rows.Count + 2 If LastRow = 65536 Then LastRow = 4 Range(Selection, Cells(LastRow, ActiveCell.Column)).Select Set ChartWeekSource = Selection Selection.Offset(0, 2).Select Range(Selection, Cells(LastRow, ActiveCell.Column)).Select Set ChartDataSource = Selection ' Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets(ChartSheet).Range(ChartWeekSource, ChartDataSource), PlotBy:=xlColumns '<<<<<< problem ActiveChart.Location Whe=xlLocationAsObject, Name:=ChartSheet ChartNumber = ActiveSheet.Shapes.Count I get always a run time error 1004 when i set the data source for the chart (see <<<<<<) What am i doing wrong? Regards, Ludo |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Dynamic chart problem
On Aug 13, 7:08*am, Ludo wrote:
Hi, I have a data table where i need to create a chart from. The data for the chart is in column A (week numbers) and the actual data is, depending on some situations on column G, or in column N, ... every chart need the Week column. I wrote something like (snipset): * * Dim ChartWeekSource As Range * * Dim ChartDataSource As Range 'Add chart(s) * * While Trim(UnitFamilyList(Dummy)) < "" * * * * Windows(datafilename).Activate * * * * Sheets(UnitFamilyName2).Select * * * * Cells(3, MyOffset).Select * * * * ChartTitle = Selection.Offset(-1, -5).Value * * * * Selection.Offset(0, -2).Select * * * * LastRow = Range(Selection, Selection.End(xlDown)).Rows.Count + 2 * * * * If LastRow = 65536 Then LastRow = 4 * * * * Range(Selection, Cells(LastRow, ActiveCell.Column)).Select * * * * Set ChartWeekSource = Selection * * * * Selection.Offset(0, 2).Select * * * * Range(Selection, Cells(LastRow, ActiveCell.Column)).Select * * * * Set ChartDataSource = Selection ' * * Charts.Add * * ActiveChart.ChartType = xlColumnClustered * * ActiveChart.SetSourceData Source:=Sheets(ChartSheet).Range(ChartWeekSource, ChartDataSource), PlotBy:=xlColumns * * *'<<<<<< problem * * ActiveChart.Location Whe=xlLocationAsObject, Name:=ChartSheet * * ChartNumber = ActiveSheet.Shapes.Count I get always a run time error 1004 when i set the data source for the chart (see <<<<<<) What am i doing wrong? Regards, Ludo "If desired, send your file to dguillett @gmail.com I will only look if: 1. You send a copy of this message on an inserted sheet 2. You give me the newsgroup and the subject line 3. You send a clear explanation of what you want 4. You send before/after examples and expected results." |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Dynamic chart problem (re-posted) | Charts and Charting in Excel | |||
Dynamic chart problem | Charts and Charting in Excel | |||
Dynamic chart problem | Excel Discussion (Misc queries) | |||
problem with dynamic data in chart? | Charts and Charting in Excel | |||
Chart Dynamic Range problem | Excel Programming |