copy table or graph and paste into powerpoint

[funkymonkUK]

anybody able to help me copy a table of cells or graph and pasting into a presentation in powerpoint.

Many thanks

[michelxld]

Hello

I hope this help you
to copy a graph in a presentation

Sub insertionGraphiqueDansPowerPoint()
'activate Microsoft Powerpoint Object Library
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte

Set PPT = CreateObject("Powerpoint.Application")
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open("C:\myPresentation.ppt")

ActiveSheet.ChartObjects(1).Copy 'copy first graph in active sheet
PptDoc.Slides(3).Shapes.Paste 'paste in third slide

NbShpe = PptDoc.Slides(3).Shapes.Count

With PptDoc.Slides(3).Shapes(NbShpe)
.Name = "monGraph"
.Left = 150
.Top = 100
.Height = 300
.Width = 400
End With

'PptDoc.Save
'PptDoc.Close
'PPT.Quit
End Sub


Regards ,
michel