Excel 2008 のグラフの凡例のつけ方

質問

Excel 2008　を使用しています。
いま、図に示すように折れ線グラフを描きました。

ここで次の２点について質問なのですが、
・　赤枠に示すように、凡例に書きたい項目をセルからコピーして、一括して項目を変更できないのでしょうか？
この場合、[系列１～４]を[A,B,C,D]に変える。

・　青枠に示すように、プロットした各線の横に系列番号をふりたいのですが、Excel 2003　では、データをダブルクリックするとデータラベルのタブ内の凡例名を付属させる箇所にチェックをいれると表示できるのですが、Excel 2008ではどうしたらできるのでしょうか？　調べても分かりませんでした。
また、これについても一括して番号をふることはできないでしょうか？

ご回答よろしくお願いします。

回答No.1

xls88 · ベストアンサー

Windows版のExcelですか？
一括処理はマクロになると思います。
該当グラフを選択しておいて下記マクロを実行してみてください。
Excel2008はもっていないのでExcel2007で確認しています。

Sub test1()
Dim nm As String
Dim n As Integer
Dim i As Integer

Sheets("グラフ").Activate
ActiveSheet.ChartObjects(13).Activate
With ActiveChart
n = .SeriesCollection(1).Points.Count
For i = 1 To .SeriesCollection.Count
With .SeriesCollection(i)
.Name = "=" & ActiveSheet.Name & "!" & Range("H" & i + 7).Address
.Points(n).ApplyDataLabels ShowSeriesName:=True, ShowValue:=False
.Points(n).DataLabel.Position = xlLabelPositionRight
End With
Next i
End With
End Sub