Macro Works 3 Times Then Stalls

almar_dc · Mar 27th, 2002, 05:38 AM

Hi,

I am new to Macro's & VBA so I could use any help or advice. When I run the macro it works 3 times then fails what am I doing wrong?

Sub ShowChart()
Calculate
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(2).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(2).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(3).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(3).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(4).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(4).Formula

DialogSheets("Chart").Show

End Sub

nisht · Mar 27th, 2002, 07:30 AM

May be your chartcollection series be exceeding more then 255 characters..

nishith desai
http://www.pexcel.com

almar_dc · Mar 27th, 2002, 07:41 AM

Thanks for replying Nishith but I don't really understand. The chart table has multiple groups of 4 series of data so to view any one group of 4 data series I have created a chart which uses relative range name references for the series data and names, the theory was that if I placed my cursor on a cell the related chart would pop up. Does this help to understand my problem?

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 27th, 2002, 05:38 AM	#1
almar_dc New Member Join Date: Mar 2002 Location: Glasgow, Scotland Posts: 8	Hi, I am new to Macro's & VBA so I could use any help or advice. When I run the macro it works 3 times then fails what am I doing wrong? Sub ShowChart() Calculate ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1).Formula = _ ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1).Formula ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(2).Formula = _ ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(2).Formula ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(3).Formula = _ ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(3).Formula ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(4).Formula = _ ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(4).Formula DialogSheets("Chart").Show End Sub

Mar 27th, 2002, 07:30 AM	#2
nisht Board Regular Join Date: Feb 2002 Location: Ahmedabad Gujarat Posts: 303	May be your chartcollection series be exceeding more then 255 characters.. nishith desai http://www.pexcel.com

Mar 27th, 2002, 07:41 AM	#3
almar_dc New Member Join Date: Mar 2002 Location: Glasgow, Scotland Posts: 8	Thanks for replying Nishith but I don't really understand. The chart table has multiple groups of 4 series of data so to view any one group of 4 data series I have created a chart which uses relative range name references for the series data and names, the theory was that if I placed my cursor on a cell the related chart would pop up. Does this help to understand my problem?