Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Hi All
Please tell me, Is it possible to export one sheet in a qvw file to power point..
Thanks
Ganesh
Oh god thank you bro.. Really amazing, I will try this now
Thank you very much
Hi Sudhakar
I created a button and gave the macro name as ExportPPT
First I tried to export one sheet so i edit your code and kept my sheet name
when i click on button, PPT is opening with blank slide..
could you please see and tell me where i am going wrong,, dont mind if even I am unable to edit the code properly..
Sub ExportPPT
ActiveDocument.ActiveSheet.FitZoomToWindow
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
Set PPSlide = objPresentation.Slides.Add(1,2)
ActiveDocument.ActiveSheet.CopyBitmapToClipboard
ActiveDocument.GetSheetObject("SH02").CopyBitmapToClipboard
PPSlide.Shapes.Paste
Set PPSlide = Nothing
Set PPPres = Nothing
End sub
Thanks
Ganesh
YOU NOT REMOVE THE OBJECT AT ActiveDocument.GetSheet NOW TRY THIS CODE THAN TOY GET THE OUTPUT
Sub ExportPPT
ActiveDocument.ActiveSheet.FitZoomToWindow
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
Set PPSlide = objPresentation.Slides.Add(1,11)
' ActiveDocument.ActiveSheet.CopyBitmapToClipboard
ActiveDocument.GetSheet("SH02").CopyBitmapToClipboard
PPSlide.Shapes.Paste
Set PPSlide = Nothing
Set PPPres = Nothing
End sub
Hi sudhakar
Still, the blank slide is opening, dont know where i am going wrong..
That code is working in my application
in button you given the action tab to give the external and run macro and give the name of the macro name is exportppt
Hi Sudhakar
Yeah , exactly.. Please see the below screenshot
Thanks
ya
are you got the output right now
No i am not getting output, still blank slide is opening