Excel2016
横軸グラフを作成し、データが追加されるとグラフ範囲が更新されるマクロを作成しています。
VBA
1Dim gr As Worksheet 2Set gr = ThisWorkbook.Worksheets("Graph_RAW") 3 4Dim c As Long 5c = gr.Cells(1, 1).End(xlDown).Row 6 7With Charts("Point Graph").SeriesCollection(1) 8 .XValues = "='Graph_RAW'!$A$2:$A$" & c 9 .Values = "='Graph_RAW'!$B$2:$B$" & c 10 .DataLabels.Text = gr.Range("B2", Cells(2, c)).Value 11 12End With
XValueとValueの更新までは問題なかったのですが、
データラベルの更新で「指定したディメンションは、このグラフの種類では無効です。」というエラーが出てしまいます。
最初作成したグラフのデータラベルには、元のデータの横の列のセルの値を指定していました。
イメージとしては、
Graph_RAWシートに
A列:店名
B列:獲得点数
C列:担当者名 という表があり、これに対して新規シートにグラフを作成し、
縦に店名が表示されていて、横に点数のグラフが伸びていて、データラベルに担当者名が表示、というかんじです。
A列の店名が今後増えていく予定です。
データラベルの範囲も更新されるようにするには、どのように修正したら良いでしょうか?
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。