Can't name the sheet with the chart!!!

jrnyman · Apr 8th, 2002, 10:01 AM

Is there some reason why everytime I get to the line that names a new sheet for a chart I get some error that immediately ends the sub-routine? No dialog box or anything; it just skips the rest of the routine and exits the Sub. Here's the code:

Selection.Activate
Charts.Add
ActiveChart.ChartType = xl3DArea
ActiveChart.SetSourceData Source:=Sheets("WIP2").Range("B" & LastRow + 1 & ":" & RightFill), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "=WIP2!R1C2:R1C50"
If LoanBorrow = "LOANS" Then
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Monthly Average Loans" 'Right here it breaks off
ElseIf LoanBorrow = "BORROWS" Then
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Monthly Average Borrows"
End If
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.text = "Average Monthly Nominals For " & Client & " For The Past " & MnthAvgCount & " Months"
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Characters.text = "Average Nominals (€000)"
End With

Chris Davison · Apr 8th, 2002, 02:08 PM

I'll just send this to the top of the list with a "is that a Euro symbol" comment....

Is that a Euro symbol ?

Maybe this will trigger something with the VBA experts....

jrnyman · Apr 9th, 2002, 01:44 AM

Yes indeed, that is a Euro symbol, but that can't be the problem as (a) it's just in the axis title as text" and (b) it's not the axis title that has the error, it's the chart title.

Any other ideas?

Apr 8th, 2002, 02:08 PM	#2
Chris Davison MrExcel MVP Join Date: Feb 2002 Location: Millbank, London, UK Posts: 1,790	I'll just send this to the top of the list with a "is that a Euro symbol" comment.... Is that a Euro symbol ? Maybe this will trigger something with the VBA experts.... __________________ :: Pharma Z - Family drugstore ::

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

Apr 8th, 2002, 10:01 AM	#1
jrnyman Board Regular Join Date: Mar 2002 Location: Boston, MA Posts: 105	Is there some reason why everytime I get to the line that names a new sheet for a chart I get some error that immediately ends the sub-routine? No dialog box or anything; it just skips the rest of the routine and exits the Sub. Here's the code: Selection.Activate Charts.Add ActiveChart.ChartType = xl3DArea ActiveChart.SetSourceData Source:=Sheets("WIP2").Range("B" & LastRow + 1 & ":" & RightFill), PlotBy:= _ xlRows ActiveChart.SeriesCollection(1).XValues = "=WIP2!R1C2:R1C50" If LoanBorrow = "LOANS" Then ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Monthly Average Loans" 'Right here it breaks off ElseIf LoanBorrow = "BORROWS" Then ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Monthly Average Borrows" End If With ActiveChart .HasTitle = True .ChartTitle.Characters.text = "Average Monthly Nominals For " & Client & " For The Past " & MnthAvgCount & " Months" .Axes(xlCategory).HasTitle = False .Axes(xlSeries).HasTitle = False .Axes(xlValue).HasTitle = True .Axes(xlValue).AxisTitle.Characters.text = "Average Nominals (€000)" End With

Apr 9th, 2002, 01:44 AM	#3
jrnyman Board Regular Join Date: Mar 2002 Location: Boston, MA Posts: 105	Yes indeed, that is a Euro symbol, but that can't be the problem as (a) it's just in the axis title as text" and (b) it's not the axis title that has the error, it's the chart title. Any other ideas?