View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Rob Rob is offline
external usenet poster
 
Posts: 718
Default Excel - PowerPoint VBA

I want to copy and paste some charts from Excel in to PowerPoint, first I
group the Chart and its title in Excel, then I want to open a specific
PowerPoint file, then select the page in the file I want the chart, then
paste it in as a picture. The problem I have is selecting the specific page
in the presentation. I use the following code to open the PowerPoint
presentation but I can not get it to change to the right page.
Also once the fiel is open I want to go back to Excel and select another
chart and copy that across to another page within the Powerpoint file without
having to close it and re-open it.
Can anyone help please

Sub OpenPPT()

Dim objPPT As Object
Dim objPres As Object


Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPres = objPPT.Presentations.Open("H:\Temporary\Macro
Developer-Assumption Pack.ppt")
Windows.Item(Index:=1).Activate
End Sub