topic Re: Exporting to PPT in QlikView

Exporting to PPT

vijetas42 — Tue, 25 Mar 2014 06:27:38 GMT

Hi, I have used this macro but when I am exporting it creates sheet image in ppt

sub exportppt

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

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

ActiveDocument.ActiveSheet.CopyBitmapToClipboard

PPSlide.Shapes.Paste

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub

Re: Exporting to PPT

PrashantSangle — Tue, 25 Mar 2014 07:12:56 GMT

Hi,

This is happening just because of in your macro you use,

ActiveDocument.ActiveSheet.CopyBitmapToClipboard

//This command copy your current active sheet as Bitmap.

PPSlide.Shapes.Paste

//This Command is used to paste that bitmap file in your PPSlide

Regards,

Re: Exporting to PPT

vijetas42 — Tue, 25 Mar 2014 07:28:31 GMT

Ya,that I know,actually I want them as an object in qlikview so, how to do it?

Re: Exporting to PPT

PrashantSangle — Tue, 25 Mar 2014 07:32:40 GMT

Hi,

Sorry I did not understand what do you want?

Can you explain,

Which object you want to send in your ppt?

Is it only Active Object or all object from current Sheet?

Regards,

Re: Exporting to PPT

vijetas42 — Tue, 25 Mar 2014 07:37:25 GMT

all object from sheet

Re: Exporting to PPT

VishalWaghole — Tue, 25 Mar 2014 07:41:42 GMT

Hi Vijeta,

Try with this code,

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

set obj = ActiveDocument.GetSheetObject("LB01")

obj.CopyBitmapToClipboard()

curSheet.Range("H" & 4).Select

curSheet.Paste

- Regards,

Vishal Waghole

Re: Exporting to PPT

VishalWaghole — Tue, 25 Mar 2014 07:46:08 GMT

instead of LB01 put your object Id.

Re: Exporting to PPT

vijetas42 — Tue, 25 Mar 2014 07:53:45 GMT

Hi vishal,

I have tried your macro but ,it just opens blank ppt nothing else

Re: Exporting to PPT

vijetas42 — Tue, 25 Mar 2014 07:54:29 GMT

I have already replace object id my object id

Re: Exporting to PPT

VishalWaghole — Tue, 25 Mar 2014 07:59:39 GMT

Try using this code,

Sub ppt

'An array with the objects you want to export to powerpoint

Dim myArray(1)

myArray(0) = "LB01"

'Create ppt object

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

For each item in myArray

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

ActiveDocument.GetSheetObject(item).CopyBitmapToClipboard

PPSlide.Shapes.Paste

'Clean up

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub