Can't paste in an Excel object?

[matomato]

I'm trying to paste something in an Excel Object placed in a Powerpoint presentation.

The first line, which activates the edit mode for the object works fine, but I can't seem to paste, it gives me an error saying "This object does not support this method or property".

ActivePresentation.Slides(4).Shapes("Object 10").OLEFormat.DoVerb 1
ActivePresentation.Slides(4).Shapes("Object 10").OLEFormat.Object.Worksheets("data").Range("c4").Paste

Any ideas?

[Dnereb]

Open an instance of the actual Excel file...

Dim M_Excel as Object
Dim Wb as Object

Set M_Excel = CreatObject("Excel.Application",)
Set Wb = M_Excel.WEorkbooks.Open("YourFile.xls")

And alter whatever you want....
The alturations should be reflected in the presentation on saving the fgile again.

[matomato]

Open an instance of the actual Excel file...

Dim M_Excel as Object
Dim Wb as Object

Set M_Excel = CreatObject("Excel.Application",)
Set Wb = M_Excel.WEorkbooks.Open("YourFile.xls")

And alter whatever you want....
The alturations should be reflected in the presentation on saving the fgile again.

It's not an actual excel file, it's just an excel chart object.

[VBAhack]

Don't paste, just assign the value you want:

With ActivePresentation.Slides(4).Shapes("Object 10").OLEFormat
   .DoVerb 1
   .Object.Worksheets("data").Range("c4") = whatever
End With

[matomato]

Don't paste, just assign the value you want:

With ActivePresentation.Slides(4).Shapes("Object 10").OLEFormat
   .DoVerb 1
   .Object.Worksheets("data").Range("c4") = whatever
End With

What if I need to paste? How can I do it?

Further down the code I have to copy this Range("A5:G14") and to do it all one by one would take a lot of time...

[VBAhack]

I never use paste. You can assign even if multiple cells:

With ActivePresentation.Slides(1).Shapes("Object 4").OLEFormat.Object.Worksheets("Sheet1")
'        'single cell - .Value optional
        .Range("C1") = .Range("A6")
'        'multiple cells - need .Value
        .Range("C3:D14") = .Range("A3:B14").Value
    End With

[matomato]

I never use paste. You can assign even if multiple cells:

With ActivePresentation.Slides(1).Shapes("Object 4").OLEFormat.Object.Worksheets("Sheet1")
'        'single cell - .Value optional
        .Range("C1") = .Range("A6")
'        'multiple cells - need .Value
        .Range("C3:D14") = .Range("A3:B14").Value
    End With

Thanks, I didn't know you could do that.

I tried your first solution since it's easier for me because I don't want to check every destination for the complete range.