Mostrar valores en un grafico

No está claro qué es lo que necesitas: "último dato entrado" ¿significa el último dato de la serie u otra cosa?. Además, para poder automatizarlo (suponiendo que sea esto lo que quieres hacer) necesitaremos saber si se trata de un gráfico incrustado en la hoja o de una hoja de gráficos.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Matra" escribió en el mensaje news:5e3501c42deb$c3537e90$
Hola,
Tengo un gráfico,en el que sólo me interesa mostrar los
valores del último dato entrado.
Hay alguna forma de que sea automático, en lugar de
hacerlo manualmente?
Saludos.

Efectivamente, tengo una serie de promedios, y la curva
me muestra la tendendia, pero me interesa que me muestre
el valor final del promedio(no necesito los pasados).
Manualmente,selecciono la curva para el punto concreto y
le digo que me muestre ese valor, pero antes tengo que
borrar el del dia anterior.
Me gustaria que fuese automático, de la misma manera que
se actualiza toda la serie del grafico, que solo me
muestre el último valor de la serie.
Se trata de un grafico incrustado en la hoja.

Saludos
Matra

No está claro qué es lo que necesitas: "último dato

entrado" ¿significa el último dato de la serie u otra
cosa?. Además, para poder automatizarlo (suponiendo que
sea esto lo que quieres hacer) necesitaremos saber si se
trata de un gráfico incrustado en la hoja o de una hoja
de gráficos.

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Matra" escribió

en el mensaje news:5e3501c42deb$c3537e90
$

Hola,
Tengo un gráfico,en el que sólo me interesa mostrar los
valores del último dato entrado.
Hay alguna forma de que sea automático, en lugar de
hacerlo manualmente?
Saludos.
.

Al tratarse de un gráfico incrustado, el procedimiento se complica "algo".

Tienes que pegar lo siguiente en el módulo del libro (en ThisWorkbook):

Dim grIncr As New clGraficos
Private Sub Workbook_Open()
Set grIncr.miGrIncrustado = Worksheets("Hoja1").ChartObjects(1).Chart 'Cambiar Hoja1 por el nombre de la hoja. Si hubiera más de un gráfico en la hoja, podría suceder que hubiera que cambiar el número de ítem de ChartObjects
End Sub


Luego tienes que crear un módulo de clase (Insertar->Módulo de clase), y una vez creado seleccionarlo y pulsar F4 para acceder a sus propiedades. Cambia el nombre con que el módulo de clase habrá sido creado por defecto (Clase 1, probablemente) por clGraficos


A continuación tendrás que entrar en la ventana de código del módulo y pegar lo siguiente en ella:

Public WithEvents miGrIncrustado As Chart
Private Sub miGrIncrustado_Calculate()
With miGrIncrustado.SeriesCollection(1)
.ApplyDataLabels ShowValue:=False 'Quitar todos los valores que pudiera haber
.Points(.Points.Count).ApplyDataLabels ShowValue:=True
End With
End Sub


Sé que la cosa no es precisamente sencilla, así que si lo necesitas te podría poner un pequeño ejemplo con el código funcionando.
Un saludo.


Fernando Arroyo
MS MVP - Excel


escribió en el mensaje news:696001c42ebe$8dc66570$
Efectivamente, tengo una serie de promedios, y la curva
me muestra la tendendia, pero me interesa que me muestre
el valor final del promedio(no necesito los pasados).
Manualmente,selecciono la curva para el punto concreto y
le digo que me muestre ese valor, pero antes tengo que
borrar el del dia anterior.
Me gustaria que fuese automático, de la misma manera que
se actualiza toda la serie del grafico, que solo me
muestre el último valor de la serie.
Se trata de un grafico incrustado en la hoja.

Saludos
Matra

Gracias Fernando, el lunes lo voy a probar.
Me tiene intrigado la diferencia entre un grafico incrustado y una hoja de
graficos, porque si es lo que me parece, también puedo ubicar el grafico en
una hoja si es que tiene que facilitar el procedimiento.

Saludos.
Matra


Fernando Arroyo escribió en el mensaje de
noticias
Al tratarse de un gráfico incrustado, el procedimiento se complica "algo".

Tienes que pegar lo siguiente en el módulo del libro (en ThisWorkbook):

Dim grIncr As New clGraficos
Private Sub Workbook_Open()
Set grIncr.miGrIncrustado = Worksheets("Hoja1").ChartObjects(1).Chart
'Cambiar Hoja1 por el nombre de la hoja. Si hubiera más de un gráfico en la
hoja, podría suceder que hubiera que cambiar el número de ítem de
ChartObjects
End Sub


Luego tienes que crear un módulo de clase (Insertar->Módulo de clase), y una
vez creado seleccionarlo y pulsar F4 para acceder a sus propiedades. Cambia
el nombre con que el módulo de clase habrá sido creado por defecto (Clase 1,
probablemente) por clGraficos


A continuación tendrás que entrar en la ventana de código del módulo y pegar
lo siguiente en ella:

Public WithEvents miGrIncrustado As Chart
Private Sub miGrIncrustado_Calculate()
With miGrIncrustado.SeriesCollection(1)
.ApplyDataLabels ShowValue:=False 'Quitar todos los valores que
pudiera haber
.Points(.Points.Count).ApplyDataLabels ShowValue:=True
End With
End Sub


Sé que la cosa no es precisamente sencilla, así que si lo necesitas te
podría poner un pequeño ejemplo con el código funcionando.
Un saludo.


Fernando Arroyo
MS MVP - Excel


escribió en el mensaje
news:696001c42ebe$8dc66570$
Efectivamente, tengo una serie de promedios, y la curva
me muestra la tendendia, pero me interesa que me muestre
el valor final del promedio(no necesito los pasados).
Manualmente,selecciono la curva para el punto concreto y
le digo que me muestre ese valor, pero antes tengo que
borrar el del dia anterior.
Me gustaria que fuese automático, de la misma manera que
se actualiza toda la serie del grafico, que solo me
muestre el último valor de la serie.
Se trata de un grafico incrustado en la hoja.

Saludos
Matra

Si se tratara de una hoja de gráfico, no serían necesarios ni el módulo de clase ni el código que va en el evento Open del libro.

El problema radica en que los eventos de los gráficos incrustados no están activados por defecto, como sucede con los eventos de los gráficos situados en hojas de gráfico. Esto complica un poco el código, pero en cuanto al funcionamiento en sí de dicho código no hay diferencias.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Matra" escribió en el mensaje news:c6u7fs$f9phm$

Gracias Fernando, el lunes lo voy a probar.
Me tiene intrigado la diferencia entre un grafico incrustado y una hoja de
graficos, porque si es lo que me parece, también puedo ubicar el grafico en
una hoja si es que tiene que facilitar el procedimiento.

Saludos.
Matra