macro to PPT

Wed, 05 Mar 2014 14:33:49 GMT

Hi community,

I need macro to send all my reports at a time to PPT

Re: macro to PPT

rustyfishbones — Wed, 05 Mar 2014 14:40:10 GMT

try this

Bill_Britt — Wed, 05 Mar 2014 15:18:07 GMT

Hi,

Maybe the below will help. This will send an Object to PPT. This is code I got from someone.

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,11)

' ActiveDocument.ActiveSheet.CopyBitmapToClipboard

ActiveDocument.GetSheetObject("CH03").CopyBitmapToClipboard

PPSlide.Shapes.Paste

ActiveDocument.GetSheetObject("CH04").CopyBitmapToClipboard

PPSlide.Shapes.Paste

Set PPSlide = Nothing

Set PPPres = Nothing

End sub

Bill

fkeuroglian — Wed, 05 Mar 2014 15:25:42 GMT

Hi, I attach an example with the macro to export to ppt

please check this

good luck

Fernando