Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Error 1004 en SeriesColection

27/12/2004 - 19:29 por Daniel Sandoval | Informe spam
Ayuda Hacer una pregunta
Saludos Foro!!!!

Inserte una grafica
Tengo un combo donde seleccionan el año y la grafica muestra la tendencia de
ese año
Pero a veces recibo un error 1004 Imposible asignar el metodo XValues

A que se debera????

Gracias y Feliz Año Nuevo

mySheet.ChartObjects("Gráfico 4").Activate
ActiveChart.ChartArea.Select
With ActiveChart.SeriesCollection(1)

Select Case ThisWorkbook.Worksheets("TENDENCIAS ($)").cmbPeriodo.Value

Case "2004"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B11:M11")
Case "2003"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B12:M12")
Case "2002"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B13:M13")
Case "2001"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B14:M14")
Case "2000"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B15:M15")
Case "TODOS"
.XValues = mySheet.Range("B7:F7")
.Values = mySheet.Range("B8:F8")

End Select

End With
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
28/12/2004 - 01:15 | Informe spam
Daniel,

El codigo q expones me funciona bien, o sea q no he podido simular tu error.
Si quieres, mandame el fichero al correo privado y te lo miro (
borra NOSPAM y PLEASE antes de usar).

Por cierto ?que version de Office tienes?

Saludos,
KL

"Daniel Sandoval" wrote in message
news:
Saludos Foro!!!!

Inserte una grafica
Tengo un combo donde seleccionan el año y la grafica muestra la tendencia
de
ese año
Pero a veces recibo un error 1004 Imposible asignar el metodo XValues

A que se debera????

Gracias y Feliz Año Nuevo

mySheet.ChartObjects("Gráfico 4").Activate
ActiveChart.ChartArea.Select
With ActiveChart.SeriesCollection(1)

Select Case ThisWorkbook.Worksheets("TENDENCIAS
($)").cmbPeriodo.Value

Case "2004"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B11:M11")
Case "2003"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B12:M12")
Case "2002"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B13:M13")
Case "2001"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B14:M14")
Case "2000"
.XValues = mySheet.Range("B10:M10")
.Values = mySheet.Range("B15:M15")
Case "TODOS"
.XValues = mySheet.Range("B7:F7")
.Values = mySheet.Range("B8:F8")

End Select

End With


Preguntas similares

 

Busqueda sugerida :