Hello, i'm working in Excel 2000 and I have some VBA code (taken from
http://pubs.logicalexpressions.com/P...cle.asp?ID=390) which gives
a segment in a Pie Chart a colour baed on its description. Unfortunatley the
suffix of the segment is always different so I would like to use a wildcard
for the suffix. A typical segment description is "Personal Banking - £100k".
I have tried to insert a wildcard into the code but it does not work (i.e.
change the segment colour), any suggestions?

'Case "Personal Banking - *"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple'

If I type in 'Case "Personal Banking - £100k"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple' it
works fine but with the suffix changing as the data changes its not practical
to manually adjust the code.
Please help.

Thanks
Brian

Hi Brian,

You may have to use IF THEN tests rather than select.
Something like this,

If WorksheetFunction.Index(.XValues, iPoint) _
Like "Personal Banking - *" Then
.Points(IPoint).Interior.ColorIndex = 13 ' Purple'
ElseIf WorksheetFunction.Index(.XValues, iPoint) _
Like "Business Banking - *" Then
.Points(IPoint).Interior.ColorIndex = 3
End If

Cheers
Andy

Co-op Bank wrote:
Hello, i'm working in Excel 2000 and I have some VBA code (taken from
http://pubs.logicalexpressions.com/P...cle.asp?ID=390) which gives
a segment in a Pie Chart a colour baed on its description. Unfortunatley the
suffix of the segment is always different so I would like to use a wildcard
for the suffix. A typical segment description is "Personal Banking - £100k".
I have tried to insert a wildcard into the code but it does not work (i.e.
change the segment colour), any suggestions?

'Case "Personal Banking - *"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple'

If I type in 'Case "Personal Banking - £100k"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple' it
works fine but with the suffix changing as the data changes its not practical
to manually adjust the code.
Please help.

Thanks
Brian


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Thats excellent, worked first time. THANKS!

"Andy Pope" wrote:

Hi Brian,

You may have to use IF THEN tests rather than select.
Something like this,

If WorksheetFunction.Index(.XValues, iPoint) _
Like "Personal Banking - *" Then
.Points(IPoint).Interior.ColorIndex = 13 ' Purple'
ElseIf WorksheetFunction.Index(.XValues, iPoint) _
Like "Business Banking - *" Then
.Points(IPoint).Interior.ColorIndex = 3
End If

Cheers
Andy

Co-op Bank wrote:
Hello, i'm working in Excel 2000 and I have some VBA code (taken from
http://pubs.logicalexpressions.com/P...cle.asp?ID=390) which gives
a segment in a Pie Chart a colour baed on its description. Unfortunatley the
suffix of the segment is always different so I would like to use a wildcard
for the suffix. A typical segment description is "Personal Banking - £100k".
I have tried to insert a wildcard into the code but it does not work (i.e.
change the segment colour), any suggestions?

'Case "Personal Banking - *"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple'

If I type in 'Case "Personal Banking - £100k"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple' it
works fine but with the suffix changing as the data changes its not practical
to manually adjust the code.
Please help.

Thanks
Brian


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info