ya lo solucione ordenando el codigo...
funciona asi :
App_Excel.Charts.Add
App_Excel.ActiveChart.ChartType = xl3DColumnClustered
App_Excel.ActiveChart.SetSourceData lLibro.Sheets("Gráfico de dist. tipo Act.").Range("B11:B15,D11:D15"), xlRows
App_Excel.ActiveChart.Location xlLocationAsObject, "Gráfico de dist. tipo Act."
With App_Excel.ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Distribución de Patrimonios Administrados"
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
.HasAxis(xlCategory) = False
.HasAxis(xlSeries) = False
.HasAxis(xlValue) = True
End With
App_Excel.ActiveChart.Axes(xlCategory).CategoryTyp e = xlAutomatic
App_Excel.ActiveSheet.ChartObjects.Left = 250
App_Excel.ActiveSheet.ChartObjects.Top = 120