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.
Mauricio Henao Romero
Analista de Proyectos Informaticos Editoriales
EL COLOMBIANO