fresko

Hi guys,

This is my first post, looking forward to interact in this forum. Thank you for having me.

Onto my query, I am running a vbscript from Excel 2007 where it opens PowerPoint to do some functions. I have a very simple issue, I am trying to create a new BLANK slide, i.e. without the title and the body frames so I can paste in all these charts. I am able to get all the charts in, however I wanted to avoid going back into the slides and remove those frames. Here is how I am creating the slides:

Dim mySlide

mySlide = 0

Do Until mySlide = 3
mySlide = mySlide + 1
xlWrkBook.Worksheets(mySlide).ChartObjects(1).CopyPicture
Set lCurrSlide = ppSlideShow.Slides.Add(mySlide, 1)
lCurrSlide = ppSlideShow.Slides.Item(mySlide).Select()
ppApp.ActiveWindow.View.Paste
Loop

The line that creates my slides is:

Set lCurrSlide = ppSlideShow.Slides.Add(mySlide, 1)

Any ideas how to create a BLANK slide rather than the standard one with the heading and body? If you guys could help, that would be much appreciated.

Many thanks.

Miguel

fresko

Don't worry about it, I have managed to fix it by using (Layout:=12)

Ta