グラフ

Sub 収入内訳()
Charts.Add
With ActiveChart
.ChartType = xlPie
.SetSourceData Source:=Sheets(“科目別集計”).Range(“C4:C7,E4:E7”), _
PlotBy:=xlColumns
.Location Where:=xlLocationAsNewSheet
.HasTitle = True
.ChartTitle.Characters.Text = “収入内訳”
.HasLegend = False
.ApplyDataLabels Type:=xlDataLabelsShowLabel, LegendKey:=False, _
HasLeaderLines:=True
End With
End Sub