Don't know if the typo is only in your posting, but you are missing a
parentheses in this:

Myworksheet.Range* ( *Myworksheet.Cells(1, 1), Myworksheet.Cells(100,
8)).Copy
extbl.OLEFormat.Object.Worksheets(1).Range("A1")

See between the asterisks.




"Raquel" wrote:

Hello,

I am trying to insert an excel worksheet in a powerpoint presentation as an
OLE object from an access tool.

What I am doing is:

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")

If I run it in debug mode line by line, it works. But if I allow to run it
alone, the inserted worksheet is empty.

Could anyone help me with this?

Best regards,

Raquel