| |
▼かりこ さん：
>こんにちは。
>NO別に合計に対する値を％で円グラフにしたいのですが
>
>With ActiveSheet.ChartObjects(1).Chart
> .ChartType = xlPie
> .SetSourceData Source:=データ, PlotBy:=xlColumns
>End With
>
>（NOの数はその都度違うのですが）
>データ部分の
>セル指定をどのようにしたら、％で表示できるのでしょうか。
A列の NO の書式を 「文字列」にしてあれば、データソースの指定は
.SetSourceData Source:=Sheets("Sheet1").Range("A1:B5")
でいいはずです。
％表示するには
系列の書式設定 - データラベル で、「ラベルの内容」をパーセント
にして、表示されたラベル％の「表示形式」で 小数点以下１位を
指定すればいいと思います。
.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, HasLeaderLines:=True, ShowSeriesName:=False, _
ShowCategoryName:=False, ShowValue:=False, _
ShowPercentage:=True, ShowBubbleSize:=False
.SeriesCollection(1).DataLabels.NumberFormatLocal = "0.0%"
|
|
kanabun
- 09/1/13(火) 21:46 -
