【Excel VBA】グラフ範囲を一括で置換する

Sub グラフ範囲一括置換()
Dim chartObj As ChartObject
Dim srs As Series
For Each chartObj In ActiveSheet.ChartObjects
For Each srs In chartObj.Chart.SeriesCollection
srs.Formula = Replace(srs.Formula, “$HS$”, “$XFD$”) ‘置換したい範囲1
srs.Formula = Replace(srs.Formula, “$ZZ$”, “$XFD$”) ‘置換したい範囲2
Next
Next
End Sub

【解説】
srs.Formula = Replace(srs.Formula, “$HS$”, “$XFD$”)
HS 」を「 XFD 」に置換する

この記事がお役に立ちましたら、いいねボタンクリックをお願いします!

コメント

タイトルとURLをコピーしました