Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-Time error 1004. Help Please!
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-Time error 1004. Help Please!
You should post the code you recorded for best response. Just copy and paste
it to the newsgroup reply form. "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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-Time error 1004. Help Please!
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-Time error 1004. Help Please!
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-Time error 1004. Help Please!
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
Run Time Error 1004: Application or Object Defined Error | Excel Programming | |||
Run Time 1004 Error: Application or Object Difine Error | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Application Run Time Error 1004 and Stack Error | Excel Programming |