Insert excel sheet in a powerpoint presentation

R

Raquel

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
 
J

JLGWhiz

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.
 
R

Raquel

JLGWhiz,

thanks a lot for looking it. The parentheses are not missing, just a
copy/paste issue...

I don't know which can be the problem... I am deseperated.

Raquel
 
J

JLGWhiz

Sorry I can't help with the code. I usually do mine manually and avoid those
kinds of problems.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top