REDIMENSIONAR EL AXIS - EN GRAFICO DE ASCANDLE

[JOMEGO]

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

[Narcís]

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.

[JOMEGO]

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

Mil gracias