No se están estableciendo las propiedades de las etiquetas de datos para un gráfico en PPT.
Estoy tratando de configurar las propiedades data-label de un punto de datos utilizando este fragmento de código, pero por alguna razón las propiedades no se están estableciendo como se pretende. [ Por favor, consulte la imagen para mayor claridad ].
Una solución alternativa podría ser utilizar el Restablecer etiqueta de texto
[ Ver Imagen – 2 ] para forzar la actualización de las propiedades establecidas en data-label. Pero no pude encontrar el equivalente en vba de lo mismo. Ayuda.
'Esto ocurre dentro de un bucle
Dim thisbarpoint As Point
Set thisbarpoint = thischart.FullSeriesCollection(ibar).Points(jbar)
thisbarpoint.DataLabel.ShowCategoryName = True
thisbarpoint.DataLabel.ShowValue = False
thisbarpoint.DataLabel.ShowSeriesName = False
Debug.Print thisbarpoint.DataLabel.caption
Dim DataLabelCaption As String
DataLabelCaption = thisbarpoint.DataLabel.caption
Debug.Print DataLabelCaption 'Esto devuelve el valor como 26.7%
IMAGEN-1:
IMAGEN-2:
davy.ai
Parece que el fragmento de código proporcionado establece correctamente las propiedades de los datos de etiqueta, pero no se actualizan en el gráfico como se pretende.
Una posible solución sería intentar actualizar el gráfico después de establecer las propiedades utilizando el método
Chart.Refresh
.Otra opción sería intentar usar la propiedad
Chart.FullSeriesCollection(ibar).Points(jbar).DataLabel.Text
para establecer directamente el texto de la etiqueta en lugar de depender de los valores predeterminados de las propiedades de la etiqueta.Si estas soluciones no funcionan, puede valer la pena considerar si hay otros factores o dependencias en el código o en el gráfico que puedan estar afectando las propiedades de la etiqueta.