質問: range("& myaddress:$w$61").columns.count selection.copy activecell.offset(0, ccnt - 1).range("a1").select activesheet.paste activecell.offset(0, -(ccnt - 1)).range("a1").activate end sub よろしければ (1)そもそもグラフの参照を1列ずつ変化させるやり方 (2)上記コードの誤り を教えていただけないでしょうか? よろしくお願いいたします.
回答: もし、グラフを選択していても同じエラーが発生する場合、シートが1つしかない状況かもしれません。 実は2003以前では1シートのみのシート上グラフのseries関数は、[book名.xls]が付いてるんです。 (数式バーには出てこない。formulaプロパティで取得した場合) いずれにしても、range(fomla(2))でシート名込みでragneを指定してますから、sheets(ws). が不要になります。 activechart.seriescollection(1).values = range(fomla(2)).offset(, 1)