Excelの100%積み上げ横棒グラフで

質問

●Excelの100%積み上げ横棒グラフでグラフ内に値とパーセンテージの両方を表示させたいのですがどうしたらいぃですか？Excel2000です。

回答No.1

imogasi · ベストアンサー

VBAになりますが、近いところまで出来ました。
テストデータとして
（Ａ列）（Ｂ列）（Ｃ列）
商品 売上
ａ 34 33%
ｂ 20 19%
ｃ 50 48%
104 100%を作ります。
下記をコーディングし、実行します。
Sub test01()
Charts.Add
ActiveChart.ChartType = xlBarStacked100
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B1:B4"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.ApplyDataLabels Type:=xlShowValue
ActiveChart.SeriesCollection(1).DataLabels(1).Text = Range("b2") & "/" & Round(100 * Range("c2"))
ActiveChart.SeriesCollection(2).DataLabels(1).Text = Range("b3") & "/" & Round(100 * Range("c3"))
ActiveChart.SeriesCollection(3).DataLabels(1).Text = Range("b4") & "/" & Round(100 * Range("c4"))
End Sub
後半の.Text=・・の部分が、値とパーセント数字を/を挟んで表記するところです。
結果は、33/34,20/19,50/48と表記されます。割合数字のあとに定数"%"を加えることは簡単です。あとFontSize（文字の大き）を調節しないとはみ出るケースがあるが、手間がかかりそう。
－－－
そのほか、操作で、値のグラフとパーセントのグラフを２つ並べ、間隔を０とすると引っ付きます。そして値と割合数字が上下に表示されて良いが、真中の線が邪魔ですが、消せませんでした。こちらは失敗。