|
こんにちは。かみちゃん です。
> ActiveChart.SetSourceData Source:=Sheets("IOPS").Range(Cells(2, 1), Cells(EndRow, EndCol)), PlotBy:= _
> xlColumns
「IOPS」シートがアクティブでない場合は、エラーになります。
Sheets("IOPS").Range(Sheets("IOPS").Cells(2, 1), Sheets("IOPS").Cells(EndRow, EndCol)), PlotBy:= _
とするか、
With Sheets("IOPS")
EndRow = .Range("$A65536").End(xlUp).Row
EndCol = .Range("$B2").End(xlToRight).Column
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=.Range(.Cells(2, 1), .Cells(EndRow, EndCol)), PlotBy:= _
xlColumns
End With
CellsやRangeの前の「.」に注意が必要です。
|
|