Help in macro to create a PPT of Graphs

Hi,
I have this following code to create the PPT with a specific template. But in this, the first slide of the PPT are coming blank. How to remove those blank slides?

PHP Code: 

Sub CreatePowerPoint()




Answer = MsgBox("Are you sure you want to continue?" & vbNewLine & "Clicking 'YES' will create the DU Dashboard PPT" & vbNewLine & "You may want to set the range & Update VOC graph", vbYesNoCancel + vbInformation, "Warning: DU Dashboard graph")

If Answer = vbYes Then Else Exit Sub

 'Add a reference to the Microsoft PowerPoint Library by:
    '1. Go to Tools in the VBA menu
    '2. Click on Reference
    '3. Scroll down to Microsoft PowerPoint X.0 Object Library, check the box, and press Okay
 
    'First we declare the variables we will be using
        Dim newPowerPoint As PowerPoint.Application
        Dim activeSlide As PowerPoint.Slide
        Dim cht As Excel.ChartObject
     Dim PPT As PowerPoint.Application
 Set PPT = New PowerPoint.Application
 PPT.Visible = True
 PPT.Presentations.Open Filename:="Z:\Monthly Reports\DU Dashboard\DU Dashboard Template.pptx"
     'Look for existing instance
        On Error Resume Next
        Set newPowerPoint = GetObject(, "PowerPoint.Application")
        On Error GoTo 0
     
    'Let's create a new PowerPoint
        If newPowerPoint Is Nothing Then
            Set newPowerPoint = New PowerPoint.Application
        End If
    'Make a presentation in PowerPoint
        If newPowerPoint.Presentations.Count = 0 Then
            newPowerPoint.Presentations.Add
        End If
     
    'Show the PowerPoint
        newPowerPoint.Visible = True
    
    'Loop through each chart in the Excel worksheet and paste them into the PowerPoint
        For Each cht In ActiveSheet.ChartObjects
        
        'Add a new slide where we will paste the chart
            newPowerPoint.ActivePresentation.Slides.Add newPowerPoint.ActivePresentation.Slides.Count + 1, ppLayoutText
            newPowerPoint.ActiveWindow.View.GotoSlide newPowerPoint.ActivePresentation.Slides.Count
            Set activeSlide = newPowerPoint.ActivePresentation.Slides(newPowerPoint.ActivePresentation.Slides.Count)
                
        'Copy the chart and paste it into the PowerPoint as a Metafile Picture
            cht.Select
            ActiveChart.ChartArea.Copy
            activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
    
        'Set the title of the slide the same as the title of the chart
            activeSlide.Shapes(1).TextFrame.TextRange.Text = cht.Chart.ChartTitle.Text
            
        'Adjust the positioning of the Chart on Powerpoint Slide
            newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = 15
            newPowerPoint.ActiveWindow.Selection.ShapeRange.Top = 80
        
            activeSlide.Shapes(2).Width = 200
            activeSlide.Shapes(2).Left = 505
            
        Next
     
    AppActivate ("Microsoft PowerPoint")
    Set activeSlide = Nothing
    Set newPowerPoint = Nothing
     
End Sub 


If it is not possible, can you please give me the code to delete the first slide of the PPT once the above macro finishes it work?

comments removing

Hi,
Can anyone pls help me?

Help Please

Can anybody pls help?

This code will delete the first slide

PHP Code: 

Sub DeleteFirstSlideInPresentation()

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide

 
Set PPApp = GetObject(, "Powerpoint.Application")
 
Set PPPres = PPApp.ActivePresentation
 
Set PPSlide = PPPres.Slides(1)

PPSlide.Delete
  
End Sub 


Thanks to Sweep for his help