Excel 2003で半円（半ドーナツ）グラフを

質問

Excel 2003で集計したデータを半円（半ドーナツ）グラフで表示したいのです。標準で設定されているグラフの種類には、全円（丸ドーナツ）グラフしかないように思えます。そこで、「ユーザー設定」にトライしてみたいのですが、どなたか、ご指導いただけませんでしょうか。
追伸・虫のいい話で恐縮ですが、フリーのテンプレートなどでも結構です。ございましたら、是非ご紹介ください。お願いいたします。

回答No.1

shiga_3 · ベストアンサー

合計を含めた円グラフを作成すると、それを編集することで半円グラフが出来ます。
下記を参考にして下さい。
http://www.microsoft.com/japan/users/office_expert/200212/027.asp

参考URL：

http://www.microsoft.com/japan/users/office_expert/200212/027.asp

お礼

ありがとうございます。
思っていた通りのグラフがきれいに仕上がりました。
マイクロソフトが、こんなに親切なウエブページを開設していたなんて知りませんでした。チョットつまづいたらココヘ……ですね。問題の答え以外に有益な情報がぎっしり詰まっている……なにかワクワクさせる「気になる」サイトですね。

回答No.2

imogasi

#1で正解と思います。
マクロの記録をとって、相当改変し一般性を持たせてみました。
シートにコマンドボタンを貼りつけ、ダブルクリックして出てくるＶＢＥ画面に、下記を貼りつける。
Private Sub CommandButton1_Click()
Dim r As Range
Set r = Selection
k = Selection.Rows.Count
' MsgBox k
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=r, PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.SeriesCollection(1).Points(k).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
ActiveChart.SeriesCollection(1).Points(k).Interior.ColorIndex = xlNone
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 270
End With
ActiveChart.Legend.LegendEntries(k).Delete
End Sub
そして（１）グラフを作るエリアを範囲指定して（合計部分も含めて）
（２）ボタンをクリックすると一瞬にして半円グラフが
現れます。

お礼

ありごとうございます。
「ワンクリックで、希望のグラフが……」が、とても魅力なのですが、いまの私には、チョット刃が立たない――といった感じです。課題として頂戴いたします。
「シートにコマンドボタンを貼り付ける……」
よーし。勉強、勉強――、と。