|
散布図に空白がある場合について質問します。
「あるセルの範囲で散布図を描き,その後そのセルに値を入れる」という処理を目指しています。初めセルは空白の状態です。
今,下に示すようなプログラムで散布図のY軸,X軸の最小値と最大値を固定し,
セルの範囲をXの値がRange("A1:A20"),Yの値をRange("B1:B20")としています。
しかし,これを実行するとセルが空白だと"SeriesクラスのValuesクラスを設定できません"というエラーが出ます。このようなときの対処法を教えてください。よろしくお願いします。
Sub ch()
Dim graph As Object
Dim se As Series
Set graph = Worksheets("sheet1").ChartObjects.Add(0, 0, 300, 200)
graph.Chart.ChartType = xlXYScatterLinesNoMarkers
Set se = graph.Chart.SeriesCollection.NewSeries
se.XValues = Worksheets("sheet1").Range("A1:A20")
se.Values = Worksheets("sheet1").Range("B1:B20")
graph.Name = "graph"
Worksheets("sheet1").ChartObjects("graph").Chart.Axes(xlValue).MinimumScale = 0
Worksheets("sheet1").ChartObjects("graph").Chart.Axes(xlValue).MaximumScale = 500
Worksheets("sheet1").Chart.Axes(xlCategory).MinimumScale = 0
Worksheets("sheet1").Chart.Axes(xlCategory).MaximumScale = 100
End Sub
|
|