Excel VBA グラフラベルの更新

Question

Excel2016
横軸グラフを作成し、データが追加されるとグラフ範囲が更新されるマクロを作成しています。

Dim gr As Worksheet
Set gr = ThisWorkbook.Worksheets("Graph_RAW")

Dim c As Long
c = gr.Cells(1, 1).End(xlDown).Row

With Charts("Point Graph").SeriesCollection(1)
    .XValues = "='Graph_RAW'!$A$2:$A$" & c
    .Values = "='Graph_RAW'!$B$2:$B$" & c
    .DataLabels.Text = gr.Range("B2", Cells(2, c)).Value
    
End With

XValueとValueの更新までは問題なかったのですが、
データラベルの更新で「指定したディメンションは、このグラフの種類では無効です。」というエラーが出てしまいます。

最初作成したグラフのデータラベルには、元のデータの横の列のセルの値を指定していました。
イメージとしては、
Graph＿RAWシートに
A列：店名
B列：獲得点数
C列：担当者名　という表があり、これに対して新規シートにグラフを作成し、
縦に店名が表示されていて、横に点数のグラフが伸びていて、データラベルに担当者名が表示、というかんじです。
A列の店名が今後増えていく予定です。

データラベルの範囲も更新されるようにするには、どのように修正したら良いでしょうか？

Answer 1

データラベルの設定範囲を変えるのではなく、全てのデータにラベルを付け直す形にしたら、うまくいきました！

With Charts("Duration Graph").SeriesCollection(1)
    .XValues = "='Graph_RAW'!$A$2:$A$" & c   
    .Values = "='Graph_RAW'!$B$2:$B$" & c    
        
    For i = 1 To c - 1    '行数－1（見出し行）
        With .Points(i)
                .HasDataLabel = True    'ラベルを設定
                .DataLabel.Text = gr.Cells(i + 1, 3).Value  '見出し分1行下になるため＋1
        End With
    Next i
    
End With

Answer 2

マクロを使わなくても、数式で動的にデータ範囲を自動変更できますよ。

http://officetanaka.net/excel/function/tips/tips71.htm

Comments

[mochinn]

ありがとうございます。
このサイトは既に参照していて、データを自動変更する仕組みはわかったのですが、ラベルにセルの値を指定していたので、その場合どこを「項目名」にすれば良いのかわからなかったのです・・。
マクロは先程無事に、自己解決できました！
お騒がせしました。