DDeInitiate between PowerPoint and Excel

[Chido]

I'm trying to initiate a call between a PowerPoint and Excel File with the goal of eventually sending graphs from a excel file to various locations in a PowerPoint file. Following code already introduced on the site, I came up with the following. Unfortunately, I can't establish a connection between PowerPoint and Excel. I can do so between Word and Excel, but the PowerPoint option remains out of reach.

Here is the code I'm "struggling" with
*****************
Option Explicit

Const ShellNormFocus = 1
Const ShellMinFocus = 2
Const ShellMaxFocus = 3
Const ShellNormNoFocus = 4
Const ShellMinNoFocus = 6

Dim ddeChannel As Integer

Sub ExcelPowerPointChannel()
'This procedure opens a channel between Excel and PowerPoint

Const lTitle = "Open DDE Channel"

On Error GoTo BadConnection

Shell PathName:="C:\Program Files\Microsoft Office\Office\PowerPNT.EXE", _
WindowStyle:=ShellMinNoFocus


ddeChannel = DDEInitiate(App:="PowerPNT", Topic:="System&quot

MsgBox prompt:="A channel to PowerPoint is now open.", _
Buttons:=vbInformation, Title:=lTitle
Exit Sub

BadConnection:
MsgBox prompt:="A channel to PowerPoint not opened.", _
Buttons:=vbExclamation, Title:=lTitle


End Sub
**************

Any help would be much appreciated.

El "Chido"