Multiple objects in one PPT slide

jegadeesan — Wed, 25 Nov 2020 16:16:04 GMT

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

objPresentation.SaveAs "E:\MyPresentation.ppt"

objPresentation.Close

objPPT.Quit

Set PPSlide = Nothing

Set PPPres = Nothing

End sub

topic Multiple objects in one PPT slide in QlikView

Multiple objects in one PPT slide