Chart

Chart操作

  • 大量のChartのデータ範囲を一括変更するマクロ
    • Chart内の文字列を検索して変更するため、グラフ範囲以外も一括変更可能 Chart内で同様の文字列があると、すべて変更してしまうため注意
Sub change_dataarea()
' Keyboard Shortcut: Ctrl+f
'
'===============================================================
'アクティブシートに存在するすべてのグラフの数値を入れ替える。
'===============================================================

Dim cht As ChartObject
Dim ser As Series
For Each cht In ActiveSheet.ChartObjects
    For Each ser In cht.Chart.SeriesCollection

    '------------------------------------------------------------
    'Replace((変更前の数値),(変更後の数値))
    '------------------------------------------------------------
        ser.Formula = Replace(ser.Formula, "$502", "$2466")

    Next
Next

End Sub