|
▼kein さん:
>移動平均線は、プロットされている系列(株価なら終値:系列4)から、直接グラフ上に
>描画できます。別に移動平均を計算する数式は必要ないのです。
keinさん、すいません。現在マクロの記録から出来たコードに矢印で挟んだ部分を
追加して実行しましたが、ローソク足の部分が色付きになっただけなんですが。
With ActiveChart
.ChartType = xlStockOHLC
.SetSourceData Source:=Sheets("Sheet3").Range("A1:E61"), PlotBy _
:=xlColumns
.Location Where:=xlLocationAsNewSheet
.HasTitle = True
.ChartTitle.Characters.Text = "ローソク足"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
'------------------------------------------------- ↓追加部分
With .ChartGroups(1)
.HasUpDownBars = True
.DownBars.Interior.ColorIndex = 5
.DownBars.Border.ColorIndex = 5
.UpBars.Interior.ColorIndex = 6
.UpBars.Border.ColorIndex = 6
End With
.HasLegend = False
'-------------------------------------------------↑追加部分
End With
A1〜E61に日付 始値 高値 安値 終値 の列順でデータが入って
います。
|
|