1-13 KIkabu(ichimoku)のチャート表示に不具合
(1)概略
KIkabu(ichimoku)ツールを、Excel2016で確認したら、一目均衡表の特徴である雲は正常に表示できたが、
雲の下側/上側の線が無く雲のスタートまでの折れ線も表示非表示でした。雲のスタートまでの線は解析の関係
で、データ取得日数が多ければ初めから雲の表示になります。

Excel200/2003では問題なかったが、Excel2010でも不具合が発生していました(2003が主体で2010未使用で
不具合に気がつかなかった)。今回2010/2016対応を織り込みました。

(1)改善前
(1-1)改善前にExcel2016で実行したチャート



(1-1)改善前のマクロ
【Module1】
雲の色付け
    ActiveChart.SeriesCollection(4).Select
    ActiveChart.SeriesCollection(4).ChartType = xlAreaStacked
    ActiveChart.SeriesCollection(6).Select
    ActiveChart.SeriesCollection(6).ChartType = xlAreaStacked
 
  ・・・・・・・・
   With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
 
軸移動
   With ActiveChart.Axes(xlValue)


(2)改善後
(2-1)改善後にExcel2016で実行したチャート



(1-1)改善前のマクロ
【Module1】
雲の色付け
    ActiveChart.SeriesCollection(4).Select
    ActiveChart.SeriesCollection(4).ChartType = xlAreaStacked
    ActiveChart.SeriesCollection(6).Select
    ActiveChart.SeriesCollection(6).ChartType = xlAreaStacked
 
  ・・・・・・・・
   With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
 
 '2016雲に線を追加
 If CInt(Application.Version) > 11 Then
       ActiveChart.SeriesCollection(6).Select
            With Selection.Format.Line
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorText1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = 0
        End With
        ActiveChart.SeriesCollection(4).Select
        ActiveChart.PlotArea.Select
 End If
 
軸移動
   With ActiveChart.Axes(xlValue)




【戻る】    【HPへ】