◆◆MS-Excel2000スキルアップ講座/VBA編◆◆

行のタイトルで散布図にラベルをつける

県名	X	Y
大阪	100	50
京都	200	300
滋賀	400	100

ｘ,ｙをそれぞれX軸,Y軸にして、散布図を作ったときに、ｘかｙの値でしかラベルをつけることができないのですが、県名でラベルをつけたいときはどのようにすればよいでしょうか。

たとえばグラフの名前が"グラフ 1"で、ラベルを書き換えたい系列 No. が　"1"で、A列の１行目から始まるラベルをつけたいとき、以下のようなマクロを走らせるという方法があります。

系列が複数ある時には SeriesCollection(1)の "1" と Cells(i , 1)の "1" を変数にします。
グラフが複数あるなら "グラフ 1" を同じく変数に・・・。

Sub Label_rewrite()
Dim i As Integer
On Error GoTo end_of_data:

    ActiveSheet.ChartObjects("グラフ 1").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels

    For i = 1 To 1000
    ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text _
    = Sheets("sheet1").Cells(i , 1)
    Next i
end_of_data:
     End
End Sub