Excel to Power Point slides
 

Hello,

I would like to insert a excel table in a existing PowerPoint presentation.
So I have a code and it works fine just if I use blank PowerPoint slides.
How can I change on an existing PowerPoint presentation the existing pages
e.g. 6 and 7 with the new generated PowerPoint slides?

Here are the part of the code that I use:

With PPTApp
.Visible = msoTrue
.Presentations.Add

With .ActivePresentation
.Slides.Add 1, ppLayoutBlank

ActiveSheet.Range("A3:M34").Copy
.Slides(1).Shapes.Paste
With .Slides(1).Shapes(1)
.Top = 100
.Left = 100
End With

.Slides.Add 2, ppLayoutBlank
'.Slides(2).Shapes.Paste

ActiveSheet.Range("A40:M72").Copy
.Slides(2).Shapes.Paste
With .Slides(1).Shapes(1)
.Top = 100
.Left = 100
End With

With .Slides(1).Shapes(1)
.Height = 500
.Width = 600
.Top = 50
.Left = 55
End With

With .Slides(2).Shapes(1)
.Height = 500
.Width = 600
.Top = 50
.Left = 55
End With

Thanks in advance!!

Excel to Power Point slides
 

Hi p. panter

See this site for possible answer
http://peltiertech.com/Excel/XL_PPT.html

For example
http://peltiertech.com/Excel/XL_PPT.html#rangeppt



--
Regards Ron de Bruin
http://www.rondebruin.nl


"p. panter" wrote in message ...
Hello,

I would like to insert a excel table in a existing PowerPoint presentation.
So I have a code and it works fine just if I use blank PowerPoint slides.
How can I change on an existing PowerPoint presentation the existing pages
e.g. 6 and 7 with the new generated PowerPoint slides?

Here are the part of the code that I use:

With PPTApp
.Visible = msoTrue
.Presentations.Add

With .ActivePresentation
.Slides.Add 1, ppLayoutBlank

ActiveSheet.Range("A3:M34").Copy
.Slides(1).Shapes.Paste
With .Slides(1).Shapes(1)
.Top = 100
.Left = 100
End With

.Slides.Add 2, ppLayoutBlank
'.Slides(2).Shapes.Paste

ActiveSheet.Range("A40:M72").Copy
.Slides(2).Shapes.Paste
With .Slides(1).Shapes(1)
.Top = 100
.Left = 100
End With

With .Slides(1).Shapes(1)
.Height = 500
.Width = 600
.Top = 50
.Left = 55
End With

With .Slides(2).Shapes(1)
.Height = 500
.Width = 600
.Top = 50
.Left = 55
End With

Thanks in advance!!