Discussion :

[hallucine]

Bonjour,

Je dois transférer des graphiques Excel vers une application Powerpoint.

Voici 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
Sub TestPowerPoint()
  ' On déclare une variable de type Application PowerPoint
  Dim ppt As PowerPoint.Application
  Set ppt = CreateObject("PowerPoint.Application")
  ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
  ' On crée maintenant un objet Presentation
  Dim Pres As PowerPoint.Presentation
  ' Et on lui dit de quelle présentation il s'agit :
  Set Pres = ppt.Presentations.Open(Filename:="C:\Mes Documents\MaPresentation.ppt")
  ' On active, sélectionne et copie le Graphique Graphique 1 de Excel :
  ActiveSheet.ChartObjects("Graphique 1").Activate
  ActiveChart.ChartArea.Select
  ActiveChart.ChartArea.Copy
  ' Et on le colle dans la première diapositive de la présentation :
ppt.Presentations(ppt.Presentations.Count).Slides(1).Shapes.PasteSpecial ppPasteMetafilePicture
    ' On enregistre la présentation PowerPoint :
  Pres.Save
  ' Et on quitte PowerPoint proprement :
  ppt.Quit
  Set ppt = Nothing
End Sub

Le problème est que j'obtiens un message d'erreur (sur la ligne en gras) :
Shapes (unknown member):Invalid request (voir fichier attaché)

Merci de votre aide...

[SilkyRoad]

bonjour

ta procedure fonctionne chez moi (OfficeXP)

quelle version de PowerPoint utilises tu ?


tu peux essayer directement

Code :

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

Pres.Slides(1).Shapes.PasteSpecial ppPasteMetafilePicture

ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)

Il est possible de masquer powerPoint pendant l'éxécution d'une macro en spécifiant l'argument WithWindow:=msoFalse lors de l'ouverture de la présentation .
Par contre cette solution ne permet pas l'utilisation de la méthode Select lors de la manipulation du fichier PPT

Code :

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

1
2
Set pptDoc = pptApp.Presentations.Open("C:\maPresentation.ppt", _
		WithWindow:=msoFalse)

bonne journée
michel

[illight]

Dis, tu as ajouté quoi comme référence pour que le PasteSpecial il marche ?

Chez moi ça marche pas, j'ai ajouté les 2 références envers Powerpoint, et il me dit membre ou référence introuvable en me surlignant la ligne que tu as mise en gras Il y a une référence spéciale pour que ça marche ?

[SilkyRoad]

quelle version d'Office utilises tu?

je ne suis pas sur que çà fonctionne avant XP

michel

[illight]

Version 200 a priori arf crotouille donc avec cette version on peut pas faire de copie spécial en métafichier dans Powerpoint crotte