Copiar celdas de una Hoja de calculo (Excel) y pegarlas en una diapositiva (PowerPoint)

El siguiente ejemplo muestra como copiar celdas existentes en un libro de excel y copiarlas en una diapositiva de una presentacion de Power Point. En este ejmplo se supone que el libro y la presentacion ya existen.

LOCAL loXlsApp, loXlsBook, loXlsSheet, loPptApp, loPptPresentacion, loPptSlide

*!* ARCHIVOS ORIGEN
*!* Archivo de Excel en donde estan los datos
*!* Comprobamos que exista el archivo, de no existir lo abrimos
lcArchivoExcel="datos.xls"
lcArchivoExcel=IIF(!FILE(lcArchivoExcel),GETFILE("xls"),lcArchivoExcel)

*!* Archivo de Power Point donde deseamos pegar los datos
*!* Nuevamente comprobamos si existe el archivo o si hay que buscarlo
lcArchivoPower="presentacion.ppt"
lcArchivoPower=IIF(!FILE(lcArchivoPower),GETFILE("ppt"),lcArchivoPower)

*!* INICIANDO PROCESO DE COPY -> PASTE
IF FILE(lcArchivoExcel) AND FILE(lcArchivoPower)

  *!* COPIANDO DATOS DE EXCEL AL CLIPBOARD
  loXlsApp = CREATEOBJECT("Excel.Application")
  loXlsApp.VISIBLE = .T.
  loXlsBook=loXlsApp.Workbooks.OPEN(lcArchivoExcel)
  loXlsSheet = loXlsBook.Sheets(3)
  loXlsSheet.RANGE("A1:I23").COPY()

  *!* PEGANDO DATOS DESDE EL CLIPBOARD A DIAPOSITIVA
  loPptApp = CREATEOBJECT("Powerpoint.Application")
  loPptApp.VISIBLE= .T.
  loPptPresentacion = loPptApp.Presentations.OPEN(lcArchivoPower)
  loPptSlide=loPptPresentacion.Slides(18)
  loPptSlide.SELECT()
  loPptApp.ActiveWindow.VIEW.Paste()
ELSE
  =MESSAGEBOX("Los archvios de Excel y Power no existen",0+64+0,"No existen")
ENDIF

Jose Guillermo Ortiz Hernandez