DataLabel.Font.ColorIndex vs DataLabel.Text (Private Sub does not work in excel 2003)

Hi,

i have sheet's code which works perfecly in Excel 2007, but nothing happens in excel 2003. No error occurs. what may be the cause?

Private Sub Worksheet_Calculate()'white label when value = NA()

With Workbooks("chart").Sheets("tmp").Shapes("Wykres 1").DrawingObject.Chart
For i = 1 To 7
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 0
Next i
For i = 1 To 7
If .SeriesCollection(1).Points(i).DataLabel.Text = "#N/D!" Then
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 2
End If
Next i
End With

End Sub

regards

Hi,

The code works in xl03 if the workbook is saved as 97-03 compatible.
Add a break point on the first line and step through the code to see if all
the lines are executed as expected.

Cheers
Andy
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"God Itself" wrote in message
...
Hi,

i have sheet's code which works perfecly in Excel 2007, but nothing happens
in excel 2003. No error occurs. what may be the cause?

Private Sub Worksheet_Calculate()'white label when value = NA()

With Workbooks("chart").Sheets("tmp").Shapes("Wykres
1").DrawingObject.Chart
For i = 1 To 7
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 0
Next i
For i = 1 To 7
If .SeriesCollection(1).Points(i).DataLabel.Text = "#N/D!" Then
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 2
End If
Next i
End With

End Sub

regards

Hi,

i wrote code in xl07 and saved as 97-2003. i tried to open workbook in xl03 but code does not work (no effect)
"#N/D" labels are not whitened.

rgs

U¿ytkownik "Andy Pope" napisa³ w wiadomo¶ci ...
Hi,

The code works in xl03 if the workbook is saved as 97-03 compatible.
Add a break point on the first line and step through the code to see if all
the lines are executed as expected.

Cheers
Andy
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"God Itself" wrote in message
...
Hi,

i have sheet's code which works perfecly in Excel 2007, but nothing happens
in excel 2003. No error occurs. what may be the cause?

Private Sub Worksheet_Calculate()'white label when value = NA()

With Workbooks("chart").Sheets("tmp").Shapes("Wykres
1").DrawingObject.Chart
For i = 1 To 7
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 0
Next i
For i = 1 To 7
If .SeriesCollection(1).Points(i).DataLabel.Text = "#N/D!" Then
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 2
End If
Next i
End With

End Sub

regards

Hi,

The code itself works, at least in my testing. So you will have to debug
your code in your workbook.
In the VBE place your cursor on the With statement. Press F9 to add a break
point, the line should be highlighted in red.
Now when the event is triggered you will be entered into debug mode at that
line. You can then use F8 to step through each line of code.

You can see if the code loops properly and whether the IF test is applied
and passed.

is the text "#N/D!" or "#N/D"

Cheers
Andy
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"God Itself" wrote in message
...
Hi,

i wrote code in xl07 and saved as 97-2003. i tried to open workbook in xl03
but code does not work (no effect)
"#N/D" labels are not whitened.

rgs

U¿ytkownik "Andy Pope" napisa³ w wiadomo¶ci
...
Hi,

The code works in xl03 if the workbook is saved as 97-03 compatible.
Add a break point on the first line and step through the code to see if
all
the lines are executed as expected.

Cheers
Andy
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"God Itself" wrote in message
...
Hi,

i have sheet's code which works perfecly in Excel 2007, but nothing
happens
in excel 2003. No error occurs. what may be the cause?

Private Sub Worksheet_Calculate()'white label when value = NA()

With Workbooks("chart").Sheets("tmp").Shapes("Wykres
1").DrawingObject.Chart
For i = 1 To 7
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 0
Next i
For i = 1 To 7
If .SeriesCollection(1).Points(i).DataLabel.Text = "#N/D!" Then
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 2
End If
Next i
End With

End Sub

regards

Ok, thanks.

thet text is "#N/D!" - this is the result of NA() function in Polish ver of excel


U¿ytkownik "Andy Pope" napisa³ w wiadomo¶ci ...
Hi,

The code itself works, at least in my testing. So you will have to debug
your code in your workbook.
In the VBE place your cursor on the With statement. Press F9 to add a break
point, the line should be highlighted in red.
Now when the event is triggered you will be entered into debug mode at that
line. You can then use F8 to step through each line of code.

You can see if the code loops properly and whether the IF test is applied
and passed.

is the text "#N/D!" or "#N/D"

Cheers
Andy