topic Re: Export straight/PIVOT to PPT problem in QlikView

Export straight/PIVOT to PPT problem

sachingodhania — Tue, 23 Feb 2016 06:07:13 GMT

Hi All ,

I am facing some prob in pasting straight/pivot to ppt to a specific slideno, I am using code as below ,

sub ppt

set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

ActiveDocument.Sheets("SH01").Activate

Set obj = ActiveDocument.GetSheetObject("CH03")

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

obj.CopyTableToClipboard true

With PPSlide

objPPT.CommandBars.ExecuteMso ("PasteSourceFormatting")

End With

Set obj = ActiveDocument.GetSheetObject("CH04")

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

obj.CopyTableToClipboard true

With PPSlide

objPPT.CommandBars.ExecuteMso ("PasteSourceFormatting")

End With

End Sub

By this code table always copies on first slide of the PPT and doesn't respect the .left and top Position.

Please let me know if any body had encountered the same issue. Thanks !

Regards,

Sachin

Re: Export straight/PIVOT to PPT problem

Chanty4u — Tue, 23 Feb 2016 07:38:48 GMT

chk dis

Useful Qlikview Macros

Re: Export straight/PIVOT to PPT problem

sachingodhania — Tue, 23 Feb 2016 07:44:09 GMT

Hi Suri,

I have gone through this link. The issue is I am using copytabletoclipboard and its pasting on slide1 only.

Regards,

Sachin

Re: Export straight/PIVOT to PPT problem

HirisH_V7 — Tue, 23 Feb 2016 09:05:22 GMT

Hi,

Check with this code,

Are you exporting two objects or what's the issue can you elaborate!!

Sub ExportPPT  
Set objPPT = CreateObject("PowerPoint.Application")  
objPPT.Visible = True  
Set objPresentation = objPPT.Presentations.open("YourPath\ppt.pptx")'file Path
Set PPSlide = objPresentation.Slides.Add(1,12)  
ActiveDocument.GetSheetObject("CH02").CopyBitmapToClipboard  
PPSlide.Shapes.Paste  
PPSlide.Shapes(PPSlide.Shapes.Count).Top = 150 'This sets the top location of the image  
PPSlide.Shapes(PPSlide.Shapes.Count).Left = 15 'This sets the left location  
PPSlide.Shapes(PPSlide.Shapes.Count).Width = 240  
PPSlide.Shapes(PPSlide.Shapes.Count).Height = 250  
  
  
Set PPSlide = objPresentation.Slides.Add(1,12)  
ActiveDocument.GetSheetObject("CH02").CopyBitmapToClipboard  
PPSlide.Shapes.Paste  
PPSlide.Shapes(PPSlide.Shapes.Count).Top = 150 'This sets the top location of the image  
PPSlide.Shapes(PPSlide.Shapes.Count).Left = 15 'This sets the left location  
PPSlide.Shapes(PPSlide.Shapes.Count).Width = 100  
PPSlide.Shapes(PPSlide.Shapes.Count).Height = 200  
  
Set PPSlide = Nothing  
Set PPPres = Nothing  
Set PPApp = Nothing  
End Sub

HTH,

Hirish

Re: Export straight/PIVOT to PPT problem

sachingodhania — Tue, 23 Feb 2016 09:07:53 GMT

HI Hirish,

Thanks for code.

I need to user obj.CopyTableToClipboard instead of CopyBitmapToClipboard in order to copy table.

Regards,

Sachin

Re: Export straight/PIVOT to PPT problem

jerem1234 — Wed, 24 Feb 2016 20:06:06 GMT

Hi Sachin!

You should try this code:

sub ppt

set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

For j=1 To 2

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

next

ActiveDocument.Sheets("SH01").Activate

Set obj = ActiveDocument.GetSheetObject("CH03")

objPresentation.Slides(1).Select

obj.CopyTableToClipboard true

objPPT.CommandBars.ExecuteMso ("PasteSourceFormatting")

Set obj = ActiveDocument.GetSheetObject("CH04")

objPresentation.Slides(2).Select

obj.CopyTableToClipboard true

objPPT.CommandBars.ExecuteMso ("PasteSourceFormatting")

End sub

I found out you don't need the With PPSlide to do Paste Source Formatting since it will paste it in you active slide. So you want to choose the slide you want to paste it on with the statement:

objPresentation.Slides(1).Select

Hope this helps!!

Re: Export straight/PIVOT to PPT problem

sachingodhania — Thu, 25 Feb 2016 02:44:14 GMT

Hi Jeremiah ,

That code pastes exactly on the slide that i want to . Thanks a lot !

On more thing if you can help is I want to make column of table with to content and set font size to 8.

Also the position is working fine in image but for table is not pasting at given co-ordinates.

Regards,

Sachin