Hola a todos,

Tengo un problema con VBA. He creado una macro que me genera un gráfico de tipo Chart (xlLineMarkers). Cuando asigno los valores a los valores del eje X con una variable de tipo array (de string) funciona. Pero cuando quiero asignar los valores del eje y con otra variable de tipo array (de double) me da un error. A qué puede ser debido?

Dim bays_arr() as String

Dim ratios_arr() as double

ReDim bays_arr(1 to 18) 'Los valores son: (R03, R04, R05.......R19, R20)

ReDim ratios_arr(1 to 18)

ActiveChart.ChartType = xlLineMarkers

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).Name = "=""Skin"""

ActiveChart.SeriesCollection(1).XValues = bays_arr 'Funciona

ActiveChart.SeriesCollection(1).Values = ratios_arr 'Me da un error

Muchas gracias!

No pondria la mano en el fuego, pero podria ser por que no has definido el tipo de datos en la redimension.

En versiones posteriores a vb6 no es necesario especificar el tipo, se sobreentiende, pero si no mal recuerdo en vba6.0 necesitas repetirle el tipo aun que te resulte redundante:

ReDim ratios_arr(1 to 18) as double

O en caso de querer conservar los datos antes de la redimension

ReDim preserve ratios_arr(1 to 18) as double

Muchas gracias verzulsan, pero lo he probado y ese no es el problema. Además, puedo ver en la ventana de variables que el vector tiene los valores que yo quiero, pero por alguna razón no lo puedo asociar a la curva.

Ok, puede que el desplazamiento vertical u horizontal tengan valores fijos o una escala predeterminada. Dale valores aproximados al numero que te da error a ver si algun intervalo te lo permite, sobre todo prueba con numeros enteros.

Si puedes subir un archivo, como diria Arguiñano, Mejor que mejor.