XLS-Tabelle via VBA in PPT (mit Symbolsätze)

Sub create_powerpoint()
Dim pptApp As Object
Dim chtObj As Object
Dim pptSlide As Slide
Dim pptPres As Presentation
Dim strPfad As String
Dim strPOTX As String
strPfad = "NamePFAD\"
strPOTX = "NameDATEI.potx"
Set pptApp = New PowerPoint.Application
pptVorlage = strPfad & strPOTX
pptApp.Presentations.Open Filename:=pptVorlage, untitled:=msoTrue
Set pptPres = pptApp.ActivePresentation
'Einfügen Tabelle
ThisWorkbook.Worksheets("test").Range("B2:F6").Copy
Set pptSlide = pptApp.ActivePresentation.Slides(1)
pptSlide.Shapes.PasteSpecial ppPasteEnhancedMetafile
'Einfügen Diagramm
ThisWorkbook.Worksheets("test").Range("B13:F27").Copy
Set pptSlide = pptApp.ActivePresentation.Slides(2)
Set shp = pptSlide.Shapes.Paste
With shp
.Top = 145
.Left = 35
.Height = 201
.Width = 437
End With
pptPres.SaveAs strPfad & "test.pptx"
pptPres.Close
pptApp.Quit
Set pptPres = Nothing
Set pptApp = Nothing
End Sub