Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

Cómo utilizar una macro para agregar etiquetas a puntos de datos en un gráfico de dispersión xy o en un gráfico de burbujas en Excel

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

Resumen
En Microsoft Excel no hay ningún comando integrado que asocie automáticamente las etiquetas de texto a los puntos de datos en un gráfico de burbujas o xy (de dispersión). Sin embargo, puede crear una macro de Microsoft Visual Basic para Aplicaciones que haga esto. Este artículo contiene una macro de ejemplo que realiza esta tarea en un gráfico de dispersión XY. Sin embargo, el mismo código se puede utilizar para un gráfico de burbujas.
Más información
Microsoft proporciona ejemplos de programación solamente como ilustración, sin ninguna garantía ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. En este artículo se da por supuesto que ya conoce el lenguaje de programación que se muestra, así como las herramientas empleadas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden ayudar a explicar la funcionalidad de un procedimiento en particular. Sin embargo, no modificarán estos ejemplos para proporcionar una funcionalidad adicional ni crearán procedimientos que cumplan sus requisitos específicos. En el código de ejemplo de este artículo se supone que los datos y las etiquetas asociadas se organizan en una hoja de cálculo según el formato siguiente:
  • La primera columna contiene las etiquetas de datos.
  • La segunda columna contiene los valores de x para el gráfico xy (de dispersión).
  • La tercera columna y las siguientes contienen los valores y para el gráfico xy (de dispersión).
NOTA: aunque el ejemplo proporcionado contiene sólo una columna de datos para los valores y, puede utilizar más de una serie de datos.

Para utilizar las macros de este artículo, cree un gráfico con los datos siguientes:
   A1: Etiquetas   B1: Valores X  C1: Valores Y   A2: PuntoDatos1 B2: 12          C2: 5   A3: PuntoDatos2 B3:  9          C3: 7   A4: PuntoDatos3 B4:  5          C4: 3   A5: PuntoDatos4 B5:  4          C5: 8   A6: PuntoDatos5 B6:  1          C6: 4
NOTA: la tabla no debería contener columnas vacías y la columna que contenga las etiquetas de datos no se debería separar de la columna que contiene los valores x. Las etiquetas y los valores se deben disponer exactamente en el formato que se describe en este artículo. (La celda superior izquierda no tiene que ser la celda A1).

Para asociar etiquetas de texto a los puntos de datos en un gráfico xy (de dispersión), siga estos pasos:
  1. En la hoja de cálculo que contiene los datos de ejemplo, seleccione el rango de celdas B1:C6.
  2. En Microsoft Office Excel 2003 y en versiones anteriores, siga estos pasos:
    1. En el menú Insertar, haga clic en Gráfico.
    2. En el cuadro de diálogo Asistente para gráficos - paso 1 de 4 - tipo de gráfico, haga clic en la ficha Tipos estándar. En Tipo de gráfico, haga clic en XY (Dispersión) y, a continuación, haga clic en Siguiente.
    3. En el cuadro de diálogo Asistente para gráficos - paso 2 de 4 - datos de origen, haga clic en la ficha Rango de datos. En Series en, haga clic en Columnas y, a continuación, haga clic en Siguiente.
    4. En el cuadro de diálogo Asistente para gráficos - paso 3 de 4 - opciones de gráfico, haga clic en Siguiente.
    5. En el cuadro de diálogo Asistente para gráficos - paso 4 de 4 - ubicación del gráfico, haga clic en En una hoja nueva y, a continuación, haga clic en Finalizar.
    En Microsoft Office Excel 2007, siga estos pasos:
    1. Haga clic en la ficha Insertar, haga clic en Dispersión en el grupo Gráficos y, a continuación, seleccione un tipo.
    2. En la ficha Diseño, haga clic en Mover gráfico en el grupo Ubicación, haga clic en Nueva hoja y, a continuación, haga clic en Aceptar.
  3. Presione ALT+F11 para iniciar el Editor de Visual Basic.
  4. En el menú Insertar, haga clic en Módulo.
  5. Escriba el siguiente código en la nueva hoja:
    Sub AttachLabelsToPoints()   Variables de dimensión.   Dim Counter As Integer, ChartName As String, xVals As String   ' Deshabilitar la actualización de pantalla mientras las subrutina se está ejecutando.   Application.ScreenUpdating = False   'Almacenar la fórmula para las primeras series en "xVals".   xVals = ActiveChart.SeriesCollection(1).Formula   'Extraer el rango para los datos de xVals.   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)   Do While Left(xVals, 1) = ","      xVals = Mid(xVals, 2)   Loop   Asocie una etiqueta a cada punto de datos en el gráfico.   For Counter = 1 To Range(xVals).Cells.Count     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _         True      ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _         Range(xVals).Cells(Counter, 1).Offset(0, -1).Value   Next CounterEnd Sub
  6. Presione ALT+Q para volver a Excel.
  7. Cambie a la hoja del gráfico.
  8. En Excel 2003 y versiones anteriores, seleccione Macro en el menú Herramientas y haga clic en Macros. Haga clic en AttachLabelsToPoints y, a continuación, haga clic en Ejecutar para ejecutar la macro.

    En Excel 2007, haga clic en la ficha Programador, haga clic en Macro en el grupo Código, seleccione AttachLabelsToPoints y, a continuación, haga clic en Ejecutar.
La macro asocia las etiquetas de las celdas A2:A6 a los puntos de datos del gráfico.
xy-scatter XL2000 XL98 XL97 XL2001 XL2002 XLX XL2003 XL2007 XL2010
Nota: es un artículo de "PUBLICACIÓN RÁPIDA" creado directamente por la organización de soporte técnico de Microsoft. La información aquí contenida se proporciona como está, como respuesta a problemas que han surgido. Como consecuencia de la rapidez con la que lo hemos puesto disponible, los materiales podrían incluir errores tipográficos y pueden ser revisados en cualquier momento sin previo aviso. Vea las Condiciones de uso para otras consideraciones
Propiedades

Id. de artículo: 213750 - Última revisión: 01/08/2014 15:24:00 - Revisión: 1.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition, Microsoft Excel X para Macintosh, Microsoft Excel 2001 para Macintosh, Microsoft Excel 98 para Macintosh, Microsoft Office Excel 2003, Microsoft Excel 2010

  • kbchart kbdtacode kbhowto kbinfo kbprogramming KB213750
Comentarios