Insertar excel en powerpoint
Publicado por raquelV (3 intervenciones) el 02/03/2009 12:26:48
Hola,
tengo una hoja excel que quiero insertar en un powerpoint. Para ello lo que he hecho ha sido insertar un objeto OLE y luego a este copiarle el contenido de mi worksheet:
Dim extbl As Object
Set extbl = ObjPowerPoint.ActivePresentation.Slides(1).Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, ClassName:="Excel.Sheet", Link:=msoFalse, DisplayAsIcon:=msoTrue, IconIndex:=1)
Myworksheet.RangeMyworksheet.Cells(1, 1), Myworksheet.Cells(100, 8)).Copy extbl.OLEFormat.Object.Worksheets(1).Range("A1")
Mi problema es que si lo corro con debug, no me da ningun problema, pero si lo dejo correr "solo", me inserta la excel en la diapositiva sin problemas, pero siempre esta vacia.
¿A alguien le ha pasado esto alguna vez?
Gracias por adelantado,
Raquel
tengo una hoja excel que quiero insertar en un powerpoint. Para ello lo que he hecho ha sido insertar un objeto OLE y luego a este copiarle el contenido de mi worksheet:
Dim extbl As Object
Set extbl = ObjPowerPoint.ActivePresentation.Slides(1).Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, ClassName:="Excel.Sheet", Link:=msoFalse, DisplayAsIcon:=msoTrue, IconIndex:=1)
Myworksheet.RangeMyworksheet.Cells(1, 1), Myworksheet.Cells(100, 8)).Copy extbl.OLEFormat.Object.Worksheets(1).Range("A1")
Mi problema es que si lo corro con debug, no me da ningun problema, pero si lo dejo correr "solo", me inserta la excel en la diapositiva sin problemas, pero siempre esta vacia.
¿A alguien le ha pasado esto alguna vez?
Gracias por adelantado,
Raquel
Valora esta pregunta
0