PIE CHART EXPERT HELP REQUIRED

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello, i'm working in Excel 2000 and I have some VBA code (taken from
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.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
 
Thats excellent, worked first time. THANKS!

Andy Pope said:
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
Click to expand...
 
Back
Top