Steema Central

El codigo que me mandasteis es este, si lo pongo sobre un grafico de lineas funciona bien... pero yo quiero ponerlo sobre un grafico candestick...
y no hay manera.

este es el codigo q me mandasteis.. como puedo implementarlo para : ascandle

Private Sub TChart1_OnScroll()
Dim i, offset As Integer
Dim min, max As Double
offset = 10
min = TChart1.Series(0).YValues.Value(TChart1.Axis.Bottom.Minimum)
max = min

For i = TChart1.Axis.Bottom.Minimum To TChart1.Axis.Bottom.Maximum
If TChart1.Series(0).YValues.Value(i) < min Then
min = TChart1.Series(0).YValues.Value(i)
End If

If TChart1.Series(0).YValues.Value(i) > max Then
max = TChart1.Series(0).YValues.Value(i)
End If
Next i

TChart1.Axis.Left.SetMinMax min - offset, max + offset
Caption = Str$(min) + Str(max)
End Sub

Hola Jordi,

Creemos que la forma más sencilla de conseguir lo que buscas és como enseñó Yeray aquí en vez de utilizar el evento OnScroll.

Muchas gracias narcis, ya lo solucione como me decias...

Mil gracias