Excel to Powerpoint controle de contenu

Bonjour à tous,

Je viens vers vous car j'ai une question et je pense trouver la réponse grâce à votre aide.

Je sais, grâce à des contrôle de contenu, envoyer des textes depuis Excel sur un Word afin de créer un rapport automatique.

La macro est la suivante:

Dim WordApp As Object, WordDoc As Object, ctrl As Object
Dim nom_fichier As String

Set WordApp = CreateObject("word.application")
WordApp.Visible = True
nom_fichier = "\\SW-FRATHC-FIL01\USERS-FR$\T1102007\Desktop\Daily Use\Suivi\Lecture Marge semaine\Suivi.docx"
Set WordDoc = WordApp.Documents.Open(nom_fichier)

For Each ctrl In WordDoc.ContentControls
If ctrl.Type = 0 Then
Set Cell = ActiveSheet.Columns("D").Find(ctrl.Tag)
If Not Cell Is Nothing Then
ctrl.Range.Text = Cell.Offset(, 1)
'couleur bleue. On peut retirer cette ligne si mise en forme dans propriété du controle doc word

End If


End If
Next ctrl

Jusqu'à là tout marche bien. Aujourd’hui on me demande de faire la même chose mais sur Powerpoint.

Savez-vous s'il est possible de créer des zones de texte et de les relier à des cellules excel (comme je fais sur Word avec des contrôle du contenu de texte sur lesquels j’inscris un nom de balise) ?

De plus, il faudra également si possible que je fasse des copier-coller de graphique...

Toute aide est la bienvenue, merci par avance :)

Bonjour,

Mince j'espérai que certaines personnes avaient déjà voulu travailler sur lier des cellules ou graphique Excel à un powerpoint...