分割円グラフ・・・グループ別に作成するには？

質問

分割円グラフ・・・グループ別に作成するには？
いつもアドバイスを参考にさせて頂いています。分割（３Ｄ）円グラフを使って
グループ別に作成中です。
例えば、アンケートデータを「関心がある」「少し関心がある」を隙間が空かないようにつけて、
「少し関心がない」と「関心がない」を隙間が空かないようにくっつけるようにしたいのですが、
どうすれば作成できますか？よろしくお願いします。

回答No.2

xls88 · ベストアンサー

回答番号：No.1の≪例2≫をマクロ化してみました。
シート名、グラフ名等は実情に合わせて書き直してください。

Dim cht1 As ChartObject
Dim cht2 As ChartObject

Set cht1 = Sheets("Sheet1").ChartObjects("グラフ 1")
cht1.Duplicate
Set cht2 = Sheets("Sheet1").ChartObjects(Sheets("Sheet1").ChartObjects.Count)

With cht1.Chart
.Legend.LegendEntries(3).Font.ColorIndex = xlNone
.Legend.LegendEntries(4).Font.ColorIndex = xlNone
With .SeriesCollection(1)
.Points(3).Interior.ColorIndex = xlNone
.Points(4).Interior.ColorIndex = xlNone
End With
End With
With cht2.Chart
.Parent.left = cht1.left
.Parent.Top = cht1.Top
.ChartArea.Interior.ColorIndex = xlNone
.Legend.LegendEntries(1).Font.ColorIndex = xlNone
.Legend.LegendEntries(2).Font.ColorIndex = xlNone
.PlotArea.left = .PlotArea.left - 10
With .SeriesCollection(1)
.Points(1).Interior.ColorIndex = xlNone
.Points(2).Interior.ColorIndex = xlNone
End With
End With

お礼

マクロ化を教えて頂いて有難うございます。

回答No.1

xls88

Excelのグラフで良かったですか？
普通には出来ないようです。
誤魔化しのテクですが

≪例1≫
3D円グラフにする
元データで空間にする要素を追加
追加した要素を塗り潰しなしに設定

≪例2≫
分割円グラフをコピー
元の分割円グラフの要素「少し関心がない」と「関心がない」の塗り潰しをなし
コピーした分割円グラフの要素「関心がある」「少し関心がある」の塗り潰しをなし
グラフエリアの塗り潰しをなし
として、元の分割円グラフにコピーした分割円グラフを重ねる
コピーした分割円グラフのプロットエリアを少しずらす

お礼

有難うございます。何とかできました。