Establecer etiquetas de datos personalizadas en un gráfico

El siguiente procedimiento de VBA (Visual Basic para Aplicaciones) le permitirá usar valores de celda como etiquetas de datos en los gráficos de Excel para Mac. Para utilizar el procedimiento, haga lo siguiente:

1. En Excel, haga clic en Herramientas > Macros > Grabar nueva macro.

2. En el cuadro desplegable Almacenar macro en: , seleccione Libro de macros personal.

   Nota: Al almacenar el procedimiento de VBA en el libro de macros personal, puede usarlo en cualquier instancia de Excel. Esto significa que no solo se puede usar en un solo libro.

3. Pulse Aceptar.

4. Vaya a Herramientas > Macros > Detener grabación.

5. Vaya a Herramientas > Macros > Editor de Visual Basic.

6. El Editor de Visual Basic (VBE) se abrirá encima de Excel. En el panel de navegación de la izquierda, expanda el proyecto de VBA (PERSONAL. XLSB) para mostrar Módulo1.

7. Haga doble clic en Módulo1 para mostrar el panel Código, que se abrirá en el lado derecho de la ventana de VBE.

8. El código de VBA que se creó al grabar una nueva macro no es necesario, así que selecciónelo todo y, a continuación, presione Suprimir. 

9. Después, seleccione el código vba en el cuadro de texto siguiente, presione CMD+C para copiarlo y péguelo de nuevo en el panel Código con CMD+V. Ahora puede salir del Editor de Visual Basic y volver a Excel.

10. Pruebe la macro creando un gráfico con etiquetas de datos. A continuación, seleccione cualquier etiqueta de datos en el gráfico y ejecute la macro haciendo clic en Herramientas > Macros > Macros. Seleccione SetCustomDataLabels y presione Ejecutar. Se le pedirá automáticamente que seleccione el rango de etiquetas de datos, así que hágalo y, después, presione Aceptar.  

    Nota: Los procedimientos de VBA no se pueden deshacer, así que asegúrese de probar esto en una copia de un libro. Si ejecuta el código y no desea conservar los resultados, tendrá que cerrar el libro sin guardarlo.

11. Al salir de Excel, asegúrese de guardar los cambios en PERSONAL. XLSB para que la macro esté disponible en el futuro.

12. Siempre que quiera agregar o quitar etiquetas de datos de un gráfico, seleccione las etiquetas de datos y ejecute la macro.

13. Puede usar Preferencias de Excel >> cinta de opciones & Barra de herramientas para agregar un botón para ejecutar la macro desde la cinta de opciones o la barra de herramientas.

Option Explicit

Sub SetCustomDataLabels()
' make sure a series is selected
    If TypeOf Selection Is DataLabels Or TypeOf Selection Is Point Then
        Selection.Parent.Select
    ElseIf TypeOf Selection Is DataLabel Then
        Selection.Parent.Parent.Select
    End If

    If TypeOf Selection Is Series Then
        Else
        MsgBox "Select a chart series and try again."
        Exit Sub
    End If

    If Selection.HasDataLabels Then
        'If the data labels from cells are already showing, stop showing them and exit.
        'If labels include other info (e.g., values or categories) this will still appear
        If Selection.DataLabels.ShowRange Then
            Selection.DataLabels.ShowRange = False
            Exit Sub
        End If
    End If
 
'Use the InputBox dialog to set the range for the data labels
    On Error Resume Next
        Dim rng As Range
        Set rng = Application.InputBox(Prompt:="Select data label range.", Title:="Data Label Range", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then Exit Sub ' clicked cancel
        If Selection.HasDataLabels Then
            'This will include the new text from cells into existing data labels
        Else
        'Otherwise add data labels (empty labels)
            Selection.HasDataLabels = True
            Selection.DataLabels.ShowValue = False
        End If
    
    'Create a string that includes the sheet name and range reference.
    Dim rngAddress As String
        rngAddress = "='" & rng.Worksheet.Name & "'!" & rng.Address(RowAbsolute:=True, ColumnAbsolute:=True, External:=False)
        Selection.DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, rngAddress, 0
        Selection.DataLabels.ShowRange = True

End Sub