Insert excel sheet in a powerpoint presentation
Sorry I can't help with the code. I usually do mine manually and avoid those
kinds of problems.
"Raquel" wrote:
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
"JLGWhiz" wrote:
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
|