Generating, changing PowerPoint slides from Excel

P

p. panter

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top