Bueno.

He logramo modificar un poco el codigo, pero el problema persiste, necesito ayuda para esto.

WITH oExcel
.Range("B2:C12").Select

.Charts.Add
.ActiveChart.ChartType = -4102
Source=.Sheets("Hojas1").Range("B2:C12")
.ActiveChart.SetSourceData (Source,.ActiveChart.PlotBy =1)
.ActiveChart.Location (1,"C_Graficos")
With OExcel.ActiveChart
.HasTitle = .T.
.ChartTitle.Characters.Text = "grafica"
EndWith

.ActiveChart.HasLegend = .T.

******Sale que tengo un error (codigo de error 0x80020006: nombre desconocido)
******no me reconoce esta sentencia, o como puedo insertarle la etiquetas

.ActiveChart.ApplyDataLabels (.Type=3, .LegendKey=.F., .HasLeaderLines=.T.)
****
With oExcel.ActiveChart
.Elevation = 25
.Perspective = 30
.Rotation = 0
.RightAngleAxes = .T.
.HeightPercent = 70
EndWith

ENDWITH

Sera que hay alguna solucion ?

Gracias de nuevo.