ローソク足チャートに線画を書き加えるにはどうすれば？
ローソク足に別のデータを線画で書き加えるにはどうすればよいのでしょうか。
以下のコード、「’ローソク足」の部分だけだとうまく表示されるのですが、その後の部分「’線画」をコードに書き加えるとローソク足がおかしくなります。（全て高値＝終値の陽線になります）。データは
C列 始値
D列 高値
E列 安値
F列 終値
J列 オリジナルのデータ
シート名は「Day」
となっています。
EXCEL2000を使用しています。
よろしくお願いいたします。
Sub Macro6()
’ローソク足
Range("C5:F15").Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Day").Range_ ("C5:F15"), PlotBy :=xlColumns
ActiveChart.ChartType = xlStockOHLC
ActiveChart.Location Where:=xlLocationAsObject, Name:="Day"
ActiveChart.HasLegend = False
’線画
ActiveChart.PlotArea.Select
ActiveChart.ChartType = xlStockOHLC
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).Select
With Selection.Border
.ColorIndex = 43
.Weight = xlThin
.LineStyle = xlContinuous
End With
ActiveChart.SeriesCollection(5).Values = "=Day!R5C10:R15C10"
End Sub
お礼
早々の回答ありがとうございます。 自分でもエクセルかなっ？と一度は考えたのですが、途中で頭が混乱して拒否反応をしめしてしまいました（笑） さっそく挑戦してみます。
補足
すっごく親切な作りになっていて、データを入れるシートまで有ったので想定より楽に出来ました。 検証結果は、私の想定していたことはハズレだったことも判り（笑）大損しないで済みました。