Moving multiple charts from Excel to Powerpoint

Private Sub MovingChartsFromExcelToPPT()


    Dim PowerPointApp As Object
    Dim myPresentation As Object
    Dim mySlide As Object
    Dim myShape As Object
 
    If ActiveChart Is Nothing Then
        MsgBox "Hey, please select a chart first."
    Exit Sub
    End If


    If PowerPointApp Is Nothing Then _
    Set PowerPointApp = CreateObject(Class:="PowerPoint.Application")


    On Error GoTo 0


    Application.ScreenUpdating = False


    Set myPresentation = PowerPointApp.Presentations.Add


    Set mySlide = myPresentation.Slides.Add(1, 11) '11 = ppLayoutTitleOnly
  
    ActiveChart.ChartArea.Copy
    
    mySlide.Shapes.Paste
    Set myShape = mySlide.Shapes(mySlide.Shapes.count)
    
    myShape.Left = 200
    myShape.Top = 200
    
    PowerPointApp.Visible = True
    PowerPointApp.Activate
    
    Application.CutCopyMode = False


End Sub