Saludos a todos.

Quisiea compartirles un problema que me tiene loco desde hace un par de horas.

Estoy trabajando con auitomatizacion en excell, tengo una cantidad muy grande de informacion y necesito adicionarle el grafico con todas sus caracteristicas.

La creacion del grafico esta Ok, pero el error me saca cuando deseo poner los valores encima de cada parte de mi grafico (En este caso, un pie o torta)

El codigo que tengo es:

WITH oExcel
.Range("B2:C12").Select
.Charts.Add
.ActiveChart.ChartType = 70 &&xl3DPieExploded
.ActiveChart.SetSourceData Source:=.Sheets("Hojas1").Range("B2:C12")
.ActiveChartPlotBy:=2&&xlColumns
.ActiveChart.Location Where:=1&&xlLocationAsNewSheet
.ActiveChart.ApplyDataLabels Type:=5
.ActiveChart.LegendKey:=.F.
.ActiveChart.HasLeaderLines:=.T. &&xlDataLabelsShowLabelAndPercent
EndWith

El error lo saca en .ActiveChart.SetSourceData Source:=.Sheets("Hojas1").Range("B2:C12")


Mi primera hoja se llama HOJAS1, el grafico es un pie o torta, la layenda aparece correctamente, pero el error me lo da cuando deseo poner los valores en cada pedazo de la torta.

Alguna idea ?

Muchas gracias.