平凡な会社員のトレード日誌

日本株のシステムトレード記録。年率50%を目標にExcelを使い自動売買しています。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

グラフ処理

2つのグラフを重ね合わせるので、グラフのタイトルと軸の範囲・フォントとグラフの大きさを合わせる処理をします。

Function グラフ処理()

Dim k, m, myTitle, myHigh, myLow

Sheets("Chart").Select
Rows(i).Select
Selection.RowHeight = myChartAreaHeight

Sheets("売買記録").Select
'グラフタイトルの作成
myTitle = Cells(h, 1) & " " & Cells(h, 2) & " " & Cells(h, 3) & ":" & Abs(Cells(h, 5)) & " - " & Cells(h, 6) & ":" & Abs(Cells(h, 7))
'グラフのY軸の設定。高値と安値の下1桁(2桁)を丸める
Sheets("work").Select
myHigh = Application.WorksheetFunction.Max(Columns("C:C"))
myLow = Application.WorksheetFunction.Min(Columns("D:D"))
If myHigh > 1000 Then
myHigh = Round(myHigh / 100 + 0.5, 0) * 100
Else
myHigh = Round(myHigh / 10 + 0.5, 0) * 10
End If
If myLow > 1000 Then
myLow = Round(myLow / 100 - 0.5, 0) * 100
Else
myLow = Round(myLow / 10 - 0.5, 0) * 10
End If

'グラフの大きさを合わせる(myChartAreaHeight、myHeight等は好きな値を事前にセットしておく)
m = ActiveSheet.ChartObjects.Count
For k = 1 To m
Sheets("work").Select
ActiveSheet.ChartObjects(k).Height = myChartAreaHeight
ActiveSheet.ChartObjects(k).Width = myChartAreaWidth
ActiveSheet.ChartObjects(k).Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Text = myTitle
.ChartTitle.Font.Size = 10
.ChartTitle.Top = 1
End With
With ActiveChart.Axes(xlCategory)
.MajorTickMark = xlInside
.MinorTickMark = xlNone
.TickLabelPosition = xlNone
End With
With ActiveChart.Axes(xlValue)
.MinimumScale = myLow
.MaximumScale = myHigh
End With
With ActiveChart.Axes(xlValue).TickLabels
.AutoScaleFont = False
.Font.Size = 10
End With
With ActiveChart.PlotArea
.Top = 10
.Height = myHeight
.Left = 1
.Width = myWidth
End With

'グラフを図の形式で貼り付け
ActiveChart.ChartArea.Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
Sheets("Chart").Select
Cells(i, 1).Select
ActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)", Link:=False, _
DisplayAsIcon:=False
Next k
i = i + 1
Sheets("work").Select
Range("A1").Select  'これを指定しないと次の処理が動かない

End Function
スポンサーサイト
  1. 2007/03/25(日) 16:59:27|
  2. Excelチャート
  3. | トラックバック:0
  4. | コメント:0

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://kojimaro.blog70.fc2.com/tb.php/221-89665407
この記事にトラックバックする(FC2ブログユーザー)

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。