| 
    
     |  | 自動的にグラフを作成するマクロを検討しています。 下記マクロはsheet1にあるデータのB10:B400の値がX軸にし、I10:K400の値がY軸となるような3系列の散布図を作成するマクロです。
 
 Charts.Add
 ActiveChart.ChartType = xlXYScatterLinesNoMarkers
 ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B10:B400,I10:K400"), _
 PlotBy:=xlColumns
 ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graph1"
 
 X軸の値となるB10:B400は固定し、Y軸の3系列(I10:K400)を変動させるマクロを検討しています。どのように変動させるかというと
 
 -1 アクティブセル
 1
 2
 基準  3
 
 アクティブセルから1列左、3行下のセルを基準セルとし、Y軸の値は基準セルから400行下、3行右の範囲の値となります。
 上記マクロで、Y軸の値となる範囲の選択を上記変動条件で行うマクロを教示願います。
 
 |  |