Valor final de Grafico Lineas

hola, Renzo !

... un grafico de lineas... se actualiza a diario por ser un consolidado mensual
... estoy colocando manualmente el valor solo en el punto final de cada una de las graficas.
...alguna manera que automaticamente solo aparezca el valor del ultimo dato ingresado para cada linea.

prueba/adapta/... el siguiente ejemplo dependiendo de la forma en que 'actualices' los datos del grafico...
y si el grafico es un objeto incrustato en hoja de calculo o se trata de una hoja de graficos -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Etiqueta_ultimo()
Dim Serie As Byte, Punto As Byte
With ActiveSheet.ChartObjects(1).Chart
For Serie = 1 To .SeriesCollection.Count
With .SeriesCollection(Serie)
.HasDataLabels = True
.ApplyDataLabels Type:=xlDataLabelsShowValue
For Punto = 1 To .Points.Count
.Points(Punto).HasDataLabel = Punto = .Points.Count
Next
End With
Next
End With
End Sub

Estimado Hector me sale error en la siguiente linea

With ActiveSheet.ChartObjects(1).Chart

es una grafica de lineas con 6 series.

Saludos,
Renzo


"Héctor Miguel" escribió en el mensaje
news:

hola, Renzo !

... un grafico de lineas... se actualiza a diario por ser un consolidado
mensual
... estoy colocando manualmente el valor solo en el punto final de cada
una de las graficas.
...alguna manera que automaticamente solo aparezca el valor del ultimo
dato ingresado para cada linea.

prueba/adapta/... el siguiente ejemplo dependiendo de la forma en que
'actualices' los datos del grafico...
y si el grafico es un objeto incrustato en hoja de calculo o se trata de
una hoja de graficos -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Etiqueta_ultimo()
Dim Serie As Byte, Punto As Byte
With ActiveSheet.ChartObjects(1).Chart
For Serie = 1 To .SeriesCollection.Count
With .SeriesCollection(Serie)
.HasDataLabels = True
.ApplyDataLabels Type:=xlDataLabelsShowValue
For Punto = 1 To .Points.Count
.Points(Punto).HasDataLabel = Punto = .Points.Count
Next
End With
Next
End With
End Sub

hola, Renzo !

... me sale error en la siguiente linea
With ActiveSheet.ChartObjects(1).Chart
es una grafica de lineas con 6 series.

- cual es el mensaje de error que aparece ? [+/- exactamente] :))
- se trata de un grafico incrustado en una hoja de calculo ?
- existen mas graficos incrustados en la hoja ?
- es una hoja de graficos ?

comentas algun detalle mas... 'significativo' ?
saludos,
hector.

Error '9' y se va a la tabla de depuración de la macro.

Es un hoja de Grafico del tipo linea con 7 series, donde no hay mas graficos
incrustados. La data sale del mismo libro

Saludos,
Renzo


"Héctor Miguel" escribió en el mensaje
news:

hola, Renzo !

... me sale error en la siguiente linea
With ActiveSheet.ChartObjects(1).Chart
es una grafica de lineas con 6 series.

- cual es el mensaje de error que aparece ? [+/- exactamente] :))
- se trata de un grafico incrustado en una hoja de calculo ?
- existen mas graficos incrustados en la hoja ?
- es una hoja de graficos ?

comentas algun detalle mas... 'significativo' ?
saludos,
hector.

hola, Renzo !

Error '9' y se va a la tabla de depuracion de la macro.
Es un hoja de Grafico del tipo linea con 7 series, donde no hay mas graficos incrustados. La data sale del mismo libro

tratandose de una 'hoja de graficos' [y no de un grafico incrustado en hoja de calculo]... te sugiero...
usa el modulo de codigo de 'esa' hoja de graficos y aprovecha algun evento de la grafica [p.e. el '_calculate']

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Private Sub Chart_Calculate()
Application.ScreenUpdating = False
Dim Serie As Byte, Punto As Byte
For Serie = 1 To Me.SeriesCollection.Count
With Me.SeriesCollection(Serie)
.HasDataLabels = True
.ApplyDataLabels Type:=xlDataLabelsShowValue
For Punto = 1 To .Points.Count
.Points(Punto).HasDataLabel = Punto = .Points.Count
Next
End With
Next
End Sub