March 23, 2014

Excelのグラフの複数の系列名をセル範囲を指定して設定するマクロ

Excelでグラフを作ると、系列名を上手く入力できない場合があったり、既存のグラフの系列名だけを変えたい場合がある。そこで、お手軽に変更するちょっとしたマクロを作成した。

使い方

  • グラフを選ぶ
  • マクロを実行する
  • セル範囲を聞かれるので、ドラッグしてセル範囲を選ぶ
系列の名前が変更される。

コード


Sub setSeriesName()
'セル範囲を選んでグラフの系列名に設定するマクロ
'使用方法:グラフを選ぶ→このマクロを実行する→セル範囲を聞かれるのでドラッグして選択。
    Dim seriesNameRange As Range
    Dim targetSeries As Series
    
    Set seriesNameRange = Application.InputBox("系列名を入力したセル範囲を選んでください。", , , , , , , 8)
    
    For i = 1 To ActiveChart.SeriesCollection.Count
        If i > seriesNameRange.Count Then Exit For
        ActiveChart.SeriesCollection(i).Name = seriesNameRange.Item(i)
    Next
End Sub

No comments :

Post a Comment