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

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

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

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