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
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