Hello.
I am exporting charts from Excel to Power Point.
My problem is that I dont't know how to fix the chart size to slide size and add:
ppEffectWipeFromLeft
Start:after previous
Duration:0.05

In Excel 2016 workbook in Sheet1 I have this piece of code:

Sub Exportxlchr2PP()
Dim pptapp As PowerPoint.Application
Dim pptppt As PowerPoint.Presentation
Dim pptsld As PowerPoint.Slide

Set pptsld = pptppt.Slides.Add(6, ppLayoutTitleOnly)
pptsld.Shapes(1).TextFrame.TextRange = ""
ActiveSheet.ChartObjects("sj_infect_recup").Copy
pptsld.Shapes.Paste

Set pptppt = pptapp.Presentations.Add
Set pptsld = pptppt.Slides.Add(1, ppLayoutTitle)

pptsld.Shapes(1).TextFrame.TextRange = "Title"
pptsld.Shapes(2).TextFrame.TextRange = "Subtitle"
pptsld.BackgroundStyle = msoBackgroundStylePreset12

Set pptsld = pptppt.Slides.Add(2, ppLayoutTitleOnly)
pptsld.Shapes(1).TextFrame.TextRange = ""
ActiveSheet.ChartObjects("sj_inf_rec").Copy
pptsld.Shapes.Paste

End Sub
Since Macro Recorder is not available in PP I cannot see the test the size and animation efects

I really appreciate your help