Visual Basic para Aplicaciones - Actualizar ecuación de gráfica

Life is soft - evento anual de software empresarial
   
Vista:

Actualizar ecuación de gráfica

Publicado por Bekyna (44 intervenciones) el 08/06/2009 22:34:36
Buen día, necesito su valiosa ayuda para lo siguiente:
En un formato de Excel en la primera hoja por medio de una macro se llenan los valores en celdas determinadas, en la hoja dos hay una gráfica que muestra la línea de tendencia junto con la ecuación de gráfico y el origen de datos lo toma de la hoja1, por lo que siempre va cambiando de acuerdo a los datos que se le envíen cuando se ejecuta la macro, el detalle que no se actualiza la ecuación de forma automática la tengo que actualizar manual mente, eso tal vez estaría bien para un archivo, el problema es que son muchos datos y graficas las que se van a manejar, así que agradecería mucho que me dieran alguna sugerencia para que la ecuación se actualice de forma automática.

Saludos desde EDOMEX
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Buscador para Excel
- Formulario de Access
- Cajero Automatico
Imágen de perfil de JuanC

RE:Actualizar ecuación de gráfica

Publicado por JuanC (431 intervenciones) el 09/06/2009 00:02:34
alguna vez hice esto para extraer la ecuación de un gráfico... (fragmento)

'//Crear gráfico (polinomio de 3er grado)
Charts.Add
ActiveChart.Type = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(sHoja).Range(sRangoDatos), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=sHoja
ActiveChart.SeriesCollection(1).Trendlines.Add Type:=xlPolynomial, Order:=3, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=False

'//Tomar fórmula del gráfico ( y = c1x3 + c2x2 + c3x + c4 )
Y = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Caption

deberías trabajar con la última línea del código

PD: no sé por qué pero en excel 2007 no anda...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar