Hello

I'm trying to add a table I've created in a excel spreadsheet to a powerpoint presentation. Is there a way to add the table as a editable object instead of a picture. Below is the code I have so far. Any help would be greatly appreciated.

'Declarations
Dim pp As Object
Dim PPPres As Object
Dim PPSlide As Object
Dim excelwksht As Worksheet
Dim MyRange As String
Dim MyTitle As String

'Open PowerPoint, add a new presentation and make visible
Set pp = CreateObject("PowerPoint.Application")
Set PPPres = pp.Presentations.Add
pp.Visible = True

'Set the ranges
MyRange = "A1:BH30"

'Start the loop through each worksheet
For Each excelwksht In ActiveWorkbook.Worksheets
excelwksht.Select
Application.Wait (Now + TimeValue("0:00:1"))

'Copy the range
excelwksht.Range(MyRange).CopyPicture Appearance:=xlScreen, Format:=xlPicture

'Count slides and adds new slides as next available slide number
SlideCount = PPPres.Slides.Count
Set PPSlide = PPPres.Slides.Add(SlideCount + 1, 12)
PPSlide.Select

'Adjust its position
PPSlide.Shapes.Paste.Select
pp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
pp.ActiveWindow.Selection.ShapeRange.Top = 1
pp.ActiveWindow.Selection.ShapeRange.Left = 1
pp.ActiveWindow.Selection.ShapeRange.Width = 550

'Moves to next worksheet
Next excelwksht

pp.Activate
Set PPSlide = Nothing
Set PPPres = Nothing
Set pp = Nothing

End Sub