Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


72025 / 76733 ←次へ | 前へ→

【9196】Re:グラフの重ねあわせについて
回答  kein  - 03/11/20(木) 23:17 -

引用なし
パスワード
   あー・・すいません。自分の使っているコードから、コピペする部分を間違え
ました。移動平均線を出すのは

With .SeriesCollection(4).Trendlines _
  .Add(Type:=xlMovingAvg, Period:=13).Border
  .ColorIndex = 10
  .Weight = xlHairline
End With

というような感じになります。これで13日移動平均になります。
(引数 Period の値で決める) 従って全体としては・・

Sub MyChart()
  Dim PlotR As Range

  With Sheets("Sheet3")
   Set PlotR = .Range("A1", .Range("E65536").End(xlUp))
  End With 
  Charts.Add
  With ActiveChart
   .ChartType = xlStockOHLC
   .SetSourceData Source:=PlotR, PlotBy:=xlColumns
   .Location Where:=xlLocationAsNewSheet
   .HasTitle = True
   .ChartTitle.Characters.Text = "ローソク足"
   With .ChartGroups(1)
     .HasUpDownBars = True
     .DownBars.Interior.ColorIndex = 5
     .DownBars.Border.ColorIndex = 5
     .UpBars.Interior.ColorIndex = 6
     .UpBars.Border.ColorIndex = 6
   End With
   With .SeriesCollection(4).Trendlines _
   .Add(Type:=xlMovingAvg, Period:=7).Border
     .ColorIndex = 10
     .Weight = xlHairline
   End With
   .SizeWithWindow = True
   .Deselect
  End With
  Set PlotR = Nothing
End Sub

というようなコードになると思います。色については適当にパレット番号を指定
して下さい。
2 hits

【9185】グラフの重ねあわせについて NH 03/11/20(木) 16:59 質問
【9190】Re:グラフの重ねあわせについて kein 03/11/20(木) 18:21 回答
【9192】Re:グラフの重ねあわせについて NH 03/11/20(木) 18:50 発言
【9196】Re:グラフの重ねあわせについて kein 03/11/20(木) 23:17 回答
【9197】Re:グラフの重ねあわせについて kein 03/11/20(木) 23:20 発言
【9198】Re:グラフの重ねあわせについて NH 03/11/20(木) 23:27 お礼

72025 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free