View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
JLGWhiz JLGWhiz is offline
external usenet poster
 
Posts: 3,986
Default Paste object from excel to powerpoint

Not sure if this site will help with paste special but it gives some
information on copying to power point from excel.

http://www.ozgrid.com/forum/showthread.php?t=57762

"Aaron" wrote:

I have a graph and combo boxes that sit over .Range("L1:AD40"). When I
manually copy this range and paste special to a PP slide as an MS excel
object, I get exactly what I want. Please help to finish this code....

Sub Paste()
Dim objPPT As Object
Dim objPres As Object

ActiveWorkbook.Sheets("UTL").Range("L1:AD40").Copy

Set objPPT = CreateObject("PowerPoint.Application")
Set PPApp = GetObject(, "Powerpoint.Application")
objPPT.Visible = True
Set objPres = objPPT.presentations.Open("C:\documents and
Settings\scuap\desktop\test.ppt")

PPApp.ActiveWindow.View.GotoSlide 2
'I need to paste special as an object here but can't figure the code out?

End Sub