Multiple objects in one PPT slide

[jegadeesan]

Hi All,

I need to show some of the objects in one PPT slide using PPT macro. Am using below given Macro to get that. But, am getting desired object in 3 slides. How to get it done in one slide?

Sub ExportPPT

ActiveDocument.ActiveSheet.FitZoomToWindow

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

    For i = 0 To ActiveDocument.NoOfSheets - 1

   '     Set MySheet = ActiveDocument.GetSheet(i)

        Set PPSlide = objPresentation.Slides.Add(1,1)

         PPSlide.Shapes(1). Delete ' removes the title

  PPSlide.Shapes(1).Delete ' removes the text box

   '  ActiveDocument.ActiveSheet.CopyBitmapToClipboard

  ActiveDocument.GetSheetObject("CH17").CopyBitmapToClipboard

        PPSlide.Shapes.Paste

         with PPSlide.Shapes(PPSlide.Shapes.Count)

.left = 0

.top = 60

.width=200

.Height=200

end with

  ActiveDocument.GetSheetObject("CH15").CopyBitmapToClipboard

        PPSlide.Shapes.Paste

        with PPSlide.Shapes(PPSlide.Shapes.Count)

.left = 380

.top = 60

.width=250

.Height=200

end with

ActiveDocument.GetSheetObject("CH12").CopyBitmapToClipboard

  PPSlide.Shapes.Paste

      with PPSlide.Shapes(PPSlide.Shapes.Count)

.left = 380

.top = 300

.width=250

.Height=200

end with

Next

objPresentation.SaveAs "E:\MyPresentation.ppt"

objPresentation.Close

objPPT.Quit

Set PPSlide = Nothing

Set PPPres = Nothing

End sub