Run time error on SaveAs line of code

[OliverBrain]

Can anyone tell why I am getting a run time error when the last line of this code is run (.SaveAs FileName)?

Code:

Sub CreateNewPres()

Dim FileName As String
Dim rng1 As Excel.Range
Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide

'Sets the first range we want to copy
Set rng1 = ThisWorkbook.Worksheets("Sheet3").Range("rng_1")

'Opens Powerpoint
Set ppApp = New PowerPoint.Application


ppApp.Visible = True

ppApp.Activate

'Adds new presentation and Title slide
Set ppPres = ppApp.Presentations.Add
Set ppSlide = ppPres.Slides.Add(1, ppLayoutTitle)

'Refers to the shapes within the title slide and input what you want
ppSlide.Shapes(1).TextFrame.TextRange = "End of Pilot Presentation"
ppSlide.Shapes(2).TextFrame.TextRange = "Client Name"

'Adds second slide
Set ppSlide = ppPres.Slides.Add(2, ppLayoutBlank)
ppSlide.Select

'Copies and pastes rng_1
rng1.Copy
ppSlide.Shapes.Paste

'Moves the table of data into the top left corner of the slide
ppSlide.Shapes(1).Left = 234
ppSlide.Shapes(1).Top = 234


'Selects the first chart object in the specified worksheet
ThisWorkbook.Worksheets("Sheet3").ChartObjects(1).Chart.CopyPicture _
Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture

'Doesn't seem to like this jump in code
ppSlide.Shapes.Paste
ppSlide.Shapes(1).IncrementLeft -100
'can set it to the width of the slide i.e. width = ppPres.PageSetup.SlideWidth

'Establishes the Filename
FileName = "Pilot Presentation" & " " _
& Format(Now, "dd-mmm-yy")

'Saves the Presentation using the FileName
With ppSlide.Parent
.SaveAs FileName

End With

End Sub


Thanks for the help!

[Norie]

What's the error message?

Does the code work if you use ppPres instead of ppSlide.Parent?

PS Can you add code tags when posting code?

[OliverBrain]

Run time error:

Run-time error '-2147483640 (80000008)':
Automation error

Please Login or Register  to view this content.

[Norie]

What happens if you make the change I suggested?

[OliverBrain]

When I make the change that you suggested I get a new run time error:

Run-time error '438':
Object doesn't support this property or method

[Norie]

What exactly did you try?

This is what I was suggesting.

Please Login or Register  to view this content.

[OliverBrain]

Yes this is what I tried. Now, when this line: (ppSlide.Shapes.Paste) tries to run, excel closes the workbook and then tries to reopen it.

Any suggestions

[Norie]

Can you upload a sample workbook so I can test the code?

Click on GO ADVANCED and use the paperclip icon to open the upload window.

[OliverBrain]

I have attached the file I am using,
The code is in sheet3

Thanks!

[Norie]

When I run the code straight off I do get an error but it's not at the SaveAs line, it's at the Paste here.

Please Login or Register  to view this content.

If I skip that section of code and step through the rest of the code it works fine.

[OliverBrain]

Yes that is also where I am encountering the error. Is there a way around this?

[Norie]

Off the top of my head I think you'll need to add a shape/textbox/something to the slide and then paste into that.

PS I thought it was the SaveAs that was causing the problem?

[OliverBrain]

Ok great thanks, I will try that