Cross application programming

[Guest_imported]

I have an Excel file with several charts in it. Let's say the file name is test.xls. I also have an empty PowerPoint file test.ppt that should be created on the test.xls file basis. I need to write the code in Excel file to open PowerPoint file, create a new slide in it and then paste a link from Excel file. The purpose is to automate the presentation creation in case if I have 100 charts in Excel file. Here is the code I wrote:

Sub CreatePresentation()
Dim PowerPointObject As Object
'Create a PowerPoint Object
Set PowerPointObject = CreateObject("PowerPoint.Application&quot
'Open PowerPoint object
PowerPointObject.Visible = True
'Open the file in PowerPoint
PowerPointObject.Presentations.Open FileName:="D:/test.ppt"
ActiveWorkbook.Worksheets("Sheet1&quot.Activate
ActiveSheet.ChartObjects("Chart 1&quot.Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy

'HERE I need the code to add the slide to the presentation and paste a link from Excel

PowerPointObject.Quit
Set PowerPointObject = Nothing
End Sub

Could anybody help me with this issue? Thank you.

 

[trollacious]

This forum is for assembly language, not VBA/VBS