分割円グラフ・・・グループ別に作成するには？
いつもアドバイスを参考にさせて頂いています。分割（３Ｄ）円グラフを使って
グループ別に作成中です。
例えば、アンケートデータを「関心がある」「少し関心がある」を隙間が空かないようにつけて、
「少し関心がない」と「関心がない」を隙間が空かないようにくっつけるようにしたいのですが、
どうすれば作成できますか？よろしくお願いします。
投稿日時 - 2010-02-25 19:48:44
回答番号：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
投稿日時 - 2010-02-27 06:59:47
お礼
マクロ化を教えて頂いて有難うございます。
投稿日時 - 2010-03-01 19:08:55
4人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（1件中 1～1件目)
Excelのグラフで良かったですか？
普通には出来ないようです。
誤魔化しのテクですが
≪例1≫
3D円グラフにする
元データで空間にする要素を追加
追加した要素を塗り潰しなしに設定
≪例2≫
分割円グラフをコピー
元の分割円グラフの要素「少し関心がない」と「関心がない」の塗り潰しをなし
コピーした分割円グラフの要素「関心がある」「少し関心がある」の塗り潰しをなし
グラフエリアの塗り潰しをなし
として、元の分割円グラフにコピーした分割円グラフを重ねる
コピーした分割円グラフのプロットエリアを少しずらす
投稿日時 - 2010-02-26 13:47:27
お礼
有難うございます。何とかできました。
投稿日時 - 2010-03-01 19:07:52
OKWaveのオススメ
おすすめリンク