Create Power slide from excel using Specific background graphics of PPLayout

[Faridwahidi]

Hi,

Can anyone help me to create Powerpoint slide using specific background graphic?

'to Copy Charts
cht = Array("Sheet1", "Sheet2")
For i = LBound(cht) To UBound(cht)
    Set sht = Sheets(cht(i))
    For Each ch In sht.ChartObjects
        Set mySlide = myPresentation.Slides.Add(1, ppLayoutTitleOnly)
        sht.Select
        ch.Select
        ActiveChart.ChartArea.Copy
        mySlide.Select
        Set myShapeRange = mySlide.Shapes.PasteSpecial(ppPasteDefault)
        myShapeRange.Select
        myShapeRange.Left = 28
        myShapeRange.Top = 125
        myShapeRange.Width = 665
        myShapeRange.Height = 400
        mySlide.Shapes(1).TextFrame.TextRange.Text = ch.Chart.ChartTitle.Text
    Next ch
Next i

attached my workbook.