Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.charting
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.charting
|
|||
|
|||
DataLabel.Font.ColorIndex vs DataLabel.Text (Private Sub does not work in excel 2003)
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 |
#3
Posted to microsoft.public.excel.charting
|
|||
|
|||
DataLabel.Font.ColorIndex vs DataLabel.Text (Private Sub does not work in excel 2003)
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 |
#4
Posted to microsoft.public.excel.charting
|
|||
|
|||
DataLabel.Font.ColorIndex vs DataLabel.Text (Private Sub does not work in excel 2003)
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 |
#5
Posted to microsoft.public.excel.charting
|
|||
|
|||
DataLabel.Font.ColorIndex vs DataLabel.Text (Private Sub does not work in excel 2003)
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
DataLabel Overlap | Charts and Charting in Excel | |||
datalabel box is too small | Charts and Charting in Excel | |||
Conditional Datalabel formating | Charts and Charting in Excel | |||
How to positionne DataLabel on top of a point ? | Charts and Charting in Excel | |||
Change datalabel font size for all chartobjects in a row | Charts and Charting in Excel |