A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » Charts and Charting
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Looking for a dartboard type chart



 
 
Thread Tools Display Modes
  #1  
Old July 23rd, 2007, 01:42 PM posted to microsoft.public.excel.charting
Vera Lemon
external usenet poster
 
Posts: 20
Default 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!
  #2  
Old July 25th, 2007, 02:53 PM posted to microsoft.public.excel.charting
Jon Peltier
external usenet poster
 
Posts: 5,018
Default 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!



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 08:04 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.