Home > Excel VBA | GraphControl > Excel 株価チャートの陽線&陰線の色を変える(UpBars & DownBars of stock chart)

Excel 株価チャートの陽線&陰線の色を変える(UpBars & DownBars of stock chart)

Posted by: WebMaster
2008年4月18日 08:32
Excel VBA | GraphControl

株価チャートの陽線と陰線(ローソク足)の色を設定するサンプルコードを紹介します。

I have added to an option to GraphControl that is for stock chart. It's able to change color of candle bars that is shown in stock chart.

GraphControl で使用しているコードです。

the code below is used in GraphControl.

''-----------陽線＆陰線の色
''-----------change the color of candle bars
Private Sub CommandButton_UpDownBar_Click()
If NumChart = 0 Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False

If CheckBox4.Value = True Then
Temp1 = 1: Temp2 = NumChart
Else
 Temp1 = ChartObject: Temp2 = ChartObject
End If

For ChartObject = Temp1 To Temp2
 
  ActiveSheet.ChartObjects(ChartObject).Activate
 
'  If IsNumeric(ComboBox_UpBarColor.Value) = False Then MsgBox "Error...Select from combobox!(1 to 56)", vbExclamation
   
   ColorTemp = CInt(ComboBox_UpBarColor.Value)
    If ColorTemp > 56 Or ColorTemp < 1 Then Exit Sub

If OptionButton_Up.Value = True Then
      ActiveSheet.ChartObjects(ChartObject).Chart.ChartGroups(1).UpBars.Interior.ColorIndex = ColorTemp 
'---seledt UpBars and change its color  陽線をセレクトして色をつける
 
    ElseIf OptionButton_Down.Value = True Then
      ActiveSheet.ChartObjects(ChartObject).Chart.ChartGroups(1).DownBars.Interior.ColorIndex = ColorTemp  '---DownBars 陰線
    End If

Next
ChartObject = CInt(TextBox30.Value)

Application.ScreenUpdating = True
'ActiveChart.Deselect
End Sub

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | GraphControl > Excel 株価チャートの陽線&陰線の色を変える(UpBars & DownBars of stock chart)

Return to page top