Discussion :

[GuillaumeNcy]

Bonjour à tous,

Ce que je souhaite faire parait simple mais je n'y parvient pas pour autant.
Je veux copier un graphique croisé dynamique issue d'une feuil excel, vers un slide d'un ppt.

Lorsque ma procédure se finit, le powerpoint est ouvert, le presse papier contient mon graphique, mais le collage ne fonctionne pas.
Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Dim appPowerPoint As PowerPoint.Application
Dim MaPresentation As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
 
 
'Création d'un objet Powerpoint
Set appPowerPoint = CreateObject("PowerPoint.Application")
appPowerPoint.Visible = True
 
'Ouvre le fichier powerpoint
Set MaPresentation = appPowerPoint.Presentations.Open(Filename:=ActiveWorkbook.Path & "\ppt claas.ppt")
 
'Sélectionne la diapo numéro 1
MaPresentation.Slides(1).Select
 
'ici je copie tous les graphes de la feuille, en occurrence je n'en ai que un pour l'instant.. mais la n'est pas le soucis
For Each legraph In ThisWorkbook.Worksheets("Graphe gammes").ChartObjects
    legraph.Select
        ActiveChart.ChartArea.Select
        ActiveChart.ChartArea.Copy
    ' Et on le colle dans la première diapositive de la présentation :
       MaPresentation.Slides(1).Shapes.PasteSpecial link:=True
 
Next

Je souhaiterai que les données soient liées a excel d'ou le "MaPresentation.Slides(1).Shapes.PasteSpecial link:=True
"
PS : j'ai importer la référence microsoft powerpoint 15.0 object library
Merci d'avance pour votre aide !

[Menhir]

Visiblement, il s'agit plus d'un problème PowerPoint que Excel. C'est donc plutôt dans la partie PowerPoint > VBA que tu devrais poster ce sujet.

Est-ce que tu as essayé d'utiliser l'enregistreur automatique de macro dans PowerPoint pour savoir quelle était la syntaxe de copie d'un tableau ?