Copier l'image d'un tableau Excel dans un Power Point existant

Arnaud81

XLDnaute Junior
Bonjour,

Je souhaite créer une macro pour copier l'image d'un tableau Excel (feuille 2 B3:F14) dans un Power Point existant "Suivi.PPT" dans le slide 3.

Par la suite j'aurai plusieurs onglets et plusieurs fichiers à traiter (une 40aine) d'où mon souhait d'une macro pour éviter des erreurs de copier coller et un gain de temps (traitement hebdomadaire voir journalier)

J'ai commencé avec ceci mais j'ai une erreur dès la première ligne : "Type défini par l'utilisateur non défini"...

Sub MacroPPT()
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
Dim cible
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open("C:\Suivi.PPT") 'ouverture fichier ppt

NbShpe = PptDoc.Slides(3).Shapes.Count
PptDoc.Slides(3).Shapes(NbShpe).Delete
Sheets("Feuille 2").Select
Range("B3:F14").Select
Selection.Copy
PptDoc.Slides(3).Shapes.PasteSpecial ppPasteEnhancedMetafile '
NbShpe = PptDoc.Slides(3).Shapes.Count
With PptDoc.Slides(3).Shapes(NbShpe)
.Left = 200 'position horizontale dans le slide
.Top = 220 'position verticale dans le slide
.Height = 300 'hauteur image
.Width = 300 'largeur image
End With
End Sub

Si quelqu'un a une solution pour me dépanner, je serai bien preneur!!

Merci d'avance

Arnaud
 

Dranreb

XLDnaute Barbatruc
Re : Copier l'image d'un tableau Excel dans un Power Point existant

Bonjour.

Cochez "Microsoft PowerPoint 10.0 Object Library" dans la liste Références disponibles, menus Outils, Références…
Bibliothèque :PowerPoint
Référence :Microsoft PowerPoint 10.0 Object Library
AddFromGuid"{91493440-5A91-11CF-8700-00AA0060263B}", 2, 7
Fichier :C:\Program Files\Microsoft Office\Office10\MSPPT.OLB
 

Statistiques des forums

Discussions
311 720
Messages
2 081 912
Membres
101 837
dernier inscrit
Ugo