Run-Time error 1004. Help Please!

[takedownsf]

Hello,

Can someone please help me? I keep getting the following error message
whenever I try to run a macro I created:

Run-time error '1004':

Unable to set the InvertIfNegative Property of the Series Class

I tried recording a marco with the "invert if negative" box checked and
unchecked but the error message still appears no matter what is checked. Any
help will be appreciated!

Thanks,
Sandy

 

[JLGWhiz]

You should post the code you recorded for best response. Just copy and paste
it to the newsgroup reply form.

 

[dan dungan]

Hi Sandy,

It would help if you showed us the code and which line produced the
error.

It might also be helpful to know more about the data your macro acts
on and which version of Excel you are using.

Thanks,

Dan

 

[takedownsf]

Thanks for the suggestion. Here's the code. I put a * next to the line that
vb highlights.

ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
*Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 32
.Pattern = xlSolid
End With
ActiveChart.Axes(xlValue).Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True,
LegendKey:= _
False, ShowSeriesName:=False, ShowCategoryName:=False,
ShowValue:=True, _
ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.NumberFormat = "$#,##0.00"
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.NumberFormat = "#,##0.00"
Selection.TickLabels.NumberFormat = "#,##0"
ActiveChart.ChartTitle.Select
Selection.Characters.Text = "ACCOUNT MARKET VALUES"
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
Selection.Font.Bold = True
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.ChartArea.Select
End Sub

 

[JLGWhiz]

I am guessing that you don't need that line in the code. To test my theory,
put an apostrophe ( ' ) ,without the parentheses, in front of that line.
That will make it a comment and VBA will ignore it when the code runs. Then
see if the macro will do what you want.

Some of these properties that respond to boolean true/false will throw an
error if there is nothing for it to evaluate. I don't work with charts using
VBA hardly ever, so I am really taking a stab at this one. If my suggestion
doesn't do the job, then make a new posting with the code and the explanation
you gave about the error message. Someone smarter than me will help you out.