Poseemos la mejor solución que hemos encontrado on line. Nosotros queremos que te sirva de ayuda y si quieres comentarnos algo que nos pueda ayudar a perfeccionar nuestra información hazlo libremente.
Solución:
En mi otra respuesta, no hice ninguna concesión para un último punto en movimiento (es decir, puntos de datos agregados). No es gran cosa ajustar sus datos para permitir una sola etiqueta móvil.
Solo muestro una serie de datos, pero es bastante fácil hacer tantas como sea necesario, una vez que conoces el truco. En el conjunto de datos a continuación, tengo una columna Fecha y dos columnas con el mismo encabezado, Valor. La primera columna de valor tiene valores hasta la mitad del intervalo de fechas. La segunda columna tiene una fórmula que solo muestra el último valor. Esta es la fórmula en la celda C2:
=IF(AND(ISNUMBER(B2),LEN(B3)=0),B2,NA())
Esta fórmula se copia en la columna.
Ahora haz un gráfico de todos los datos. La primera serie de valores son los círculos y líneas azules, la segunda es solo el círculo naranja en el último punto azul. He añadido una etiqueta a la serie naranja, no a la azul.
El segundo gráfico simplemente lo muestra limpio: he formateado la segunda serie de valores para que no use marcadores ni líneas, y eliminé la leyenda.
En el siguiente gráfico, todo lo que he hecho es agregar un par de puntos de datos. Sin más esfuerzo de mi parte, la etiqueta se ha movido al nuevo último punto.
Si selecciona toda la serie, Excel pondrá una etiqueta en cada punto de la serie.
Seleccione solo el punto único en el que desea una etiqueta: haga clic una vez para seleccionar la serie, luego haga clic nuevamente para seleccionar un punto. Ahora, cuando use el menú del botón derecho o el ícono del signo más para agregar etiquetas de datos, agregará una etiqueta solo en el punto que haya seleccionado.
Para un enfoque de VBA que solo agrega una etiqueta al último punto y no deja un montón de etiquetas “” en el gráfico, aquí hay un procedimiento simple de mi tutorial Label Last Point for Excel 2007. Específicamente etiqueta el último punto de cada serie en el gráfico activo con el nombre de la serie.
Sub LastPointLabel()
Dim mySrs As Series
Dim iPts As Long
Dim vYVals As Variant
Dim vXVals As Variant
If ActiveChart Is Nothing Then
MsgBox "Select a chart and try again.", vbExclamation
Else
Application.ScreenUpdating = False
For Each mySrs In ActiveChart.SeriesCollection
With mySrs
vYVals = .Values
vXVals = .XValues
' clear existing labels
.HasDataLabels = False
For iPts = .Points.Count To 1 Step -1
If Not IsEmpty(vYVals(iPts)) And Not IsError(vYVals(iPts)) _
And Not IsEmpty(vXVals(iPts)) And Not IsError(vXVals(iPts)) Then
' add label
mySrs.Points(iPts).ApplyDataLabels _
ShowSeriesName:=True, _
ShowCategoryName:=False, ShowValue:=False, _
AutoText:=True, LegendKey:=False
Exit For
End If
Next
End With
Next
' legend is now unnecessary
ActiveChart.HasLegend = False
Application.ScreenUpdating = True
End If
End Sub
He escrito un montón de artículos sobre esto:
-
Etiquetar último punto
-
Etiquete cada serie en un gráfico
-
Etiquetar último punto para Excel 2007
-
Etiquetar último punto: complemento actualizado
Además, mi software comercial de gráficos de Excel incluye una versión actualizada de esta función.
Puedes secundar nuestro análisis mostrando un comentario o dejando una valoración te damos las gracias.