Insert excel sheet in a powerpoint presentation
 

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

Insert excel sheet in a powerpoint presentation
 

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

Insert excel sheet in a powerpoint presentation
 

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

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