Paste-Befehl aus Excel löst Fehler aus

Sub ShowInPP()
Dim objPP     As Object
Dim objP      As Object  'PowerPoint.Presentation
Dim objCL     As Object  'PowerPoint.CustomLayout
Dim objS      As Object  'PowerPoint.Slide
Set objPP = CreateObject("PowerPoint.Application")
Set objP = objPP.Presentations.Add
Set objCL = objP.SlideMaster.CustomLayouts.Add(1)
Set objS = objP.Slides.AddSlide(1, objCL)
ActiveSheet.Range("A1:I40").Copy
With objS.Shapes.Paste   'PowerPoint.ShapeRange
.Left = (objCL.Width - .Width) / 2
.Top = (objCL.Height - .Height) / 2
End With
objPP.Visible = True
End Sub