|
すいません。また質問があります。
初心者なのでマクロをよくわかってません。
よろしくお願いします。
Worksheets("MeasData").Activate '"MeasData"からグラフをコピーする
ActiveSheet.ChartObjects("グラフ 13").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Sheets("HistRead").Select 'コピーしたものを"HistRead"に貼り付ける
Cells(1,1).Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("グラフ 22").Activate
ActiveWindow.Visible = False
WorkSheets("HistRead").Activate
元データを"HistRead"からに変更したいのですがここから先がうまくいきません。元データを変えたいグラフについて名前を指定してあげないといけないようで、困ってます。
↓ここを指定しないといけない
ActiveSheet.ChartObjects(???).Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.SeriesCollection(1).XValues = "=HistRead!R16C3:R25C3"
ActiveChart.SeriesCollection(1).Values = "=HistRead!R16C6:R25C6"
ActiveChart.SeriesCollection(1).Name = "=HistRead!R15C6"
ActiveChart.SeriesCollection(2).XValues = "=HistRead!R16C3:R25C3"
ActiveChart.SeriesCollection(2).Values = "=HistRead!R16C9:R25C9"
ActiveChart.SeriesCollection(2).Name = "=HistRead!R15C9"
ActiveChart.SeriesCollection(3).XValues = "=HistRead!R16C3:R25C3"
ActiveChart.SeriesCollection(3).Values = "=HistRead!R16C12:R25C12"
ActiveChart.SeriesCollection(3).Name = "=HistRead!R15C12"
ActiveChart.SeriesCollection(4).XValues = "=HistRead!R16C3:R25C3"
ActiveChart.SeriesCollection(4).Values = "=HistRead!R16C15:R25C15"
ActiveChart.SeriesCollection(4).Name = "=HistRead!R15C15"
|
|