Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
Aplica rótulos de datos a todas las series de un gráfico.
Sintaxis
expresión. ApplyDataLabels (Type,IMsoLegendKey,AutoText,HasLeaderLines,ShowSeriesName,ShowCategoryName,ShowValue,ShowPercentage,ShowBubbleSize,Separator)
expresión Una variable que representa un objeto Chart.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Type | Opcional | Office.XlDataLabelsType | Tipo de etiqueta de datos que se aplica. El valor predeterminado es xlDataLabelsShowValue. |
| IMsoLegendKey | Opcional | Variant | True para mostrar la clave de leyenda junto al punto. El valor predeterminado es False. |
| AutoText | Opcional | Variant | True si el objeto genera automáticamente el texto adecuado basado en el contenido. |
| HasLeaderLines | Opcional | Variant | True si la serie tiene líneas guía. |
| ShowSeriesName | Opcional | Variant | True para habilitar el nombre de la serie para la etiqueta de datos. False para deshabilitar el nombre de la serie. |
| ShowCategoryName | Opcional | Variant | True para habilitar el nombre de categoría de la etiqueta de datos. False para deshabilitar el nombre de categoría. |
| ShowValue | Opcional | Variant | True para habilitar el valor de la etiqueta de datos. False para deshabilitar el valor. Si no se especifica el parámetro Type , se supone que ShowValue es True. |
| ShowPercentage | Opcional | Variant | True para habilitar el porcentaje de la etiqueta de datos. False para deshabilitar el porcentaje. |
| ShowBubbleSize | Opcional | Variant | True para habilitar el tamaño de la burbuja para la etiqueta de datos. False para deshabilitar el tamaño de la burbuja. |
| Separator | Opcional | Variant | Separador de la etiqueta de datos. |
Valor devuelto
Nothing
Ejemplo
En el ejemplo siguiente se aplican etiquetas de datos a cada punto de datos.
Sub SetDataLabels()
Dim chartShape As Shape
Dim reportName As String
reportName = "Simple scalar chart"
Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
chartShape.Chart.ApplyDataLabels
End Sub
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.