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 」に置換する
この記事がお役に立ちましたら、いいねボタンクリックをお願いします!
コメント