topic Re: Export a Straight Table to Power Point (PPT) using Macro in QlikView

Export a Straight Table to Power Point (PPT) using Macro

dmohanty — Mon, 27 Jan 2014 14:21:05 GMT

Hi All,

I need to export one Straight Table to a Power Point [may be using a button] using Macro.

Any valuable suggestions will be appreciated.

Regards!!!

Re: Export a Straight Table to Power Point (PPT) using Macro

dmohanty — Mon, 27 Jan 2014 17:05:49 GMT

Hi All,

I used the below Macro. Its getting functioned properly.

Sub Export()

set obj = ActiveDocument.GetSheetObject("CH01")

obj.ExportBiff "C:\Users\dicky\Documents\Export.ppt"

End Sub

But afterwards am unable to open the desired PPT. Its throwing below error. Please suggest.

Re: Export a Straight Table to Power Point (PPT) using Macro

dmohanty — Mon, 27 Jan 2014 18:00:50 GMT

Any help please???

Re: Export a Straight Table to Power Point (PPT) using Macro

jerem1234 — Mon, 27 Jan 2014 18:29:00 GMT

Here try this set of code:

sub ppt

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

ActiveDocument.Sheets("SH01").Activate

Set obj = ActiveDocument.GetSheetObject("CH01")

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

ActiveDocument.GetSheetObject("CH01").CopyBitmapToClipboard

PPSlide.Shapes.Paste

End Sub

This should open up your Powerpoint with the image pasted, then you can save it wherever.

Hope this helps!

Re: Export a Straight Table to Power Point (PPT) using Macro

phaneendra_kunc — Mon, 27 Jan 2014 18:37:04 GMT

Along with the "Jerem1234" code, make sure to set the module security to "System Acess" & Local security to "allow system access" in macro editor.

Re: Export a Straight Table to Power Point (PPT) using Macro

dmohanty — Mon, 27 Jan 2014 18:48:05 GMT

Great Mr. Phani...

Your solution was just a finishing touch.

Could you please let me know the functionality of the solution you have suggested?

Regards!!!

Re: Export a Straight Table to Power Point (PPT) using Macro

dmohanty — Mon, 27 Jan 2014 18:50:31 GMT

Thanks a lot Jerem,

This really helped along with the solution provided by Phaneendra.

Kudos to both!!!

Re: Export a Straight Table to Power Point (PPT) using Macro

jerem1234 — Mon, 27 Jan 2014 19:06:51 GMT

Would you mind marking this discussion as correct/helpful so that others may find this as useful.

Thanks!

Re: Re: Export a Straight Table to Power Point (PPT) using Macro

dmohanty — Wed, 29 Jan 2014 05:27:28 GMT

Hi Jerem and Phani,

The exported thing to PPT was just a screenshot of the Straight Table. Users can't se the full set of records.

Now my requirement is to send the full records to PPT and that too in editable mode. Users can change the values of their own too.

Something like in this attached example. Please help.

Regards!!

Re: Export a Straight Table to Power Point (PPT) using Macro

jerem1234 — Wed, 29 Jan 2014 17:18:09 GMT

Hmm... I rewrote the code, but I am having trouble pasting it in PowerPoint. Seems like PPSlide.Shapes.Paste isn't doing the trick. The code below will copy table to clipboard, and you can manually hit paste or cntrl-v in the powerpoint, but for some reason the PPSlide.Shapes.Paste isn't working. The code I have is below:

sub ppt

set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

ActiveDocument.Sheets("SH01").Activate

Set obj = ActiveDocument.GetSheetObject("CH01")

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

obj.CopyTableToClipboard true

'PPSlide.Shapes.Paste

End Sub

Maybe someone else can resolve this issue?

Re: Export a Straight Table to Power Point (PPT) using Macro

jerem1234 — Wed, 29 Jan 2014 18:13:05 GMT

Here try this

sub ppt

set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

ActiveDocument.Sheets("SH01").Activate

Set obj = ActiveDocument.GetSheetObject("CH05")

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

obj.CopyValuesToClipboard

PPSlide.Shapes.Paste

End Sub

Not the best looking since it just copies the values, but powerpoint seems to have trouble pasting the table.

Hope this helps!

Re: Export a Straight Table to Power Point (PPT) using Macro

jerem1234 — Wed, 29 Jan 2014 18:52:09 GMT

Finally got it, however it will only work with PowerPoint 2010 and greater. They added a command to keep source formatting in this version which works with the copied table. Try this set of code:

sub ppt

set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

ActiveDocument.Sheets("SH01").Activate

Set obj = ActiveDocument.GetSheetObject("CH01")

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

obj.CopyTableToClipboard true

With PPSlide

objPPT.CommandBars.ExecuteMso ("PasteSourceFormatting")

End With

End Sub

Hope this helps!

Re: Export a Straight Table to Power Point (PPT) using Macro

dmohanty — Sun, 02 Feb 2014 05:08:31 GMT

Hey Jerem,

That's a great effort and much helpful solution. This is what I needed. Cheers for you!!!

Regards!