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.

"takedownsf" wrote:

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


"takedownsf" wrote:

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