Copiar una grafica de Excel y pegarla en una diapositiva de PowerPoint

El Objetivo del siguiente código es abrir un libro de Excel y una presentación de PowerPoint, copiar un Grafico (Gráfico 2) el cual se encuentra en la primera hoja del libro y luego pegarlo en la diapositiva 19 de la presentación.

*!* Abrimos el archivo de Excel y de power point
lcArchivoExcel=GETFILE("xls","Abrir archivo de Excel")
lcArchivoPower=GETFILE("ppt","Abrir archivo de Power")

*!* Comprobamos que existan
IF FILE(lcArchivoExcel)==.F. OR FILE(lcArchivoPower)==.F.
  =MESSAGEBOX("Los archivo o alguno no existe",16,"File==.f.")
  RETURN
ENDIF

*!* Obejtios de Excel
loXlsApp = CREATEOBJECT("Excel.Application")
loXlsBook=loXlsApp.Workbooks.OPEN(lcArchivoExcel)
loXlsApp.VISIBLE = .T.
loXlsSheet = loXlsBook.Sheets(1)

*!* Seleccionando Grafica y Copiando
loGraficoXls = loXlsSheet.ChartObjects("Gráfico 2")
loGraficoXls.COPY()

*!* Objetos de Power Point
loPptApp = CREATEOBJECT("Powerpoint.Application")
loPptApp.VISIBLE= .T.
loPptPresentacion = loPptApp.Presentations.OPEN(lcArchivoPower)
loPptSlide=loPptPresentacion.Slides(19)
loPptSlide.SELECT()

*!* Pegamos Objeto
loGraficoPpt=loPptSlide.Shapes.Paste()

*!* Movemos el Grafico al centro
WITH loPptSlide.Shapes(loGraficoPpt.NAME)
  .IncrementLeft(-521.75)
  .IncrementTop(104.12)
ENDWITH

Jose Guillermo Ortiz Hernandez