ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Charts and Charting in Excel (https://www.excelbanter.com/charts-charting-excel/)
-   -   Looking for a dartboard type chart (https://www.excelbanter.com/charts-charting-excel/151316-looking-dartboard-type-chart.html)

Vera Lemon

Looking for a dartboard type chart
 
I'm looking for a chart or graph that looks like a dartboard. I need to be
able to split the outside circle into 4 sections, the next circle into 4
sections and be able to put words in them. The inside sections need to be
split into 7 sections with words and a separate center bullseye. Any help is
appreciated. Using MS Office 2003. Thanks!

Jon Peltier

Looking for a dartboard type chart
 
Vera -

You might be able to work something up using a Doughnut chart. This data
will give you 4 + 4 + 7 uniquely formatted segments:

inner middle outer
a 1
b 1
c 1
d 1
e 1
f 1
g 1
h 1
i 1
j 1
k 1
l 1
m 1
n 1
o 1

Double click on any of the segments to change its fill color. While in the
formatting dialog you can add a data label. Use the category name option to
display the labels in the first column. This also gives extra labels for the
blank cells, so you could use this macro to apply labels to the non-zero
items in the chart:

Sub RemoveLabelsFromBlanks()
Dim iSrs As Long
Dim iPt As Long
Dim vValues As Variant

If ActiveChart Is Nothing Then
MsgBox "Select a chart and try again", vbExclamation
Else
Application.ScreenUpdating = False
For iSrs = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(iSrs)
.ApplyDataLabels Type:=xlDataLabelsShowLabel
For iPt = 1 To .Points.Count
vValues = .Values
If vValues(iPt) <= 0 Then
.Points(iPt).HasDataLabel = False
End If
Next
End With
Next
Application.ScreenUpdating = True
End If

End Sub


- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______



"Vera Lemon" wrote in message
...
I'm looking for a chart or graph that looks like a dartboard. I need to
be
able to split the outside circle into 4 sections, the next circle into 4
sections and be able to put words in them. The inside sections need to be
split into 7 sections with words and a separate center bullseye. Any help
is
appreciated. Using MS Office 2003. Thanks!





All times are GMT +1. The time now is 06:52 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com