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

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

The info. on this site has worked well for me in the past.
http://peltiertech.com/Excel/XL_PPT.html

Regards,
Ryan--


--
RyGuy


"JLGWhiz" wrote:

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

Sorry not really what I'm looking for. The code I provided below gets me to
the point where I would simply use my mouse to select 'edit, pastespecial, MS
Excel object' There must be a line of code to do this or maybe some code to
walk through those menu options? Any help is appreciated.

"JLGWhiz" wrote:

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

I'm not sure then. Perhaps you can link Excel to PPT as such:
http://www.bettersolutions.com/power...I748519512.htm

I've done this before and it works flawlessly.

Regards,
Ryan--


--
RyGuy


"Aaron" wrote:

Sorry not really what I'm looking for. The code I provided below gets me to
the point where I would simply use my mouse to select 'edit, pastespecial, MS
Excel object' There must be a line of code to do this or maybe some code to
walk through those menu options? Any help is appreciated.

"JLGWhiz" wrote:

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

Thanks for you help. Does not seem possible. I've got another post going now
where I'm asking if anyone can help me from the last line of my code with
SendKeys. I can do it on my keyboard, so maybe someone will help me do it
that way.

"ryguy7272" wrote:

I'm not sure then. Perhaps you can link Excel to PPT as such:
http://www.bettersolutions.com/power...I748519512.htm

I've done this before and it works flawlessly.

Regards,
Ryan--


--
RyGuy


"Aaron" wrote:

Sorry not really what I'm looking for. The code I provided below gets me to
the point where I would simply use my mouse to select 'edit, pastespecial, MS
Excel object' There must be a line of code to do this or maybe some code to
walk through those menu options? Any help is appreciated.

"JLGWhiz" wrote:

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