topic Re: Define area in Dashboard to PPT in QlikView

Define area in Dashboard to PPT

eromiyasimon — Wed, 25 Nov 2020 16:16:04 GMT

hi all im using below query to export dashboard PPT

DashBoard to PPT
sub exportppt Set objPPT = CreateObject("PowerPoint.Application") objPPT.Visible = True Set objPresentation = objPPT.Presentations.Add objPresentation.SaveAs "D:\QlikView\Exportj.ppt" PPSlideNo = 1 For i = 0 to activedocument.noofsheets -1 Set PPSlide = objPresentation.Slides.Add(PPSlideNo,12) ActiveDocument.GetApplication.WaitForIdle ActiveDocument.ActiveSheet.CopyBitmapToClipboard PPSlide.Shapes.Paste PPSlide.Shapes(PPSlide.Shapes.Count).Top = 1 PPSlide.Shapes(PPSlide.Shapes.Count).Left = 1 PPSlide.Shapes(PPSlide.Shapes.Count).Width = 350 PPSlide.Shapes(PPSlide.Shapes.Count).Height = 350 PPSlide.Shapes(PPSlide.Shapes.Count).PictureFormat.CropRight = 20 Set PPSlide = Nothing Set PPPres = Nothing Set PPApp = Nothing activedocument.nexttab PPSlideNo = PPSlideNo + 1 NEXT objPresentation.Save objPresentation.Close objPresentation.Quit End Sub

DashBoard to PPT

sub exportppt

Set objPPT = CreateObject("PowerPoint.Application")

objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add

objPresentation.SaveAs "D:\QlikView\Exportj.ppt"

PPSlideNo = 1

For i = 0 to activedocument.noofsheets -1

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

ActiveDocument.GetApplication.WaitForIdle

ActiveDocument.ActiveSheet.CopyBitmapToClipboard

PPSlide.Shapes.Paste

PPSlide.Shapes(PPSlide.Shapes.Count).Top = 1

PPSlide.Shapes(PPSlide.Shapes.Count).Left = 1

PPSlide.Shapes(PPSlide.Shapes.Count).Width = 350

PPSlide.Shapes(PPSlide.Shapes.Count).Height = 350

PPSlide.Shapes(PPSlide.Shapes.Count).PictureFormat.CropRight = 20

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

activedocument.nexttab

PPSlideNo = PPSlideNo + 1

objPresentation.Save

objPresentation.Close

objPresentation.Quit

End Sub

Using this query im missing out some areas in bottom like below

Kindly help me to define my area (or) to copy perfectly from dashboard

here's a example crop attached

thank you in advance

Re: Define area in Dashboard to PPT

adamdavi3s — Thu, 08 Dec 2016 10:45:38 GMT

Is it not just because you're fixing the output size to 350 by 350 and cropping and that is cutting the bottom off?

Can you set .LockAspectRatio = True and resize one size to fit?

Re: Define area in Dashboard to PPT

vinieme12 — Thu, 08 Dec 2016 10:52:21 GMT

Does your Dashboard fit to your screen 100% or do you have to scroll down?

Fit the dashboard to your screen, that is all you need to do

Re: Define area in Dashboard to PPT

vinieme12 — Thu, 08 Dec 2016 10:52:41 GMT

I think that code is just resizing the image not for cropping

Re: Define area in Dashboard to PPT

eromiyasimon — Thu, 08 Dec 2016 10:54:32 GMT

can you please give exact code and placing location for locking aspect ratio

Re: Define area in Dashboard to PPT

vinieme12 — Thu, 08 Dec 2016 11:00:25 GMT

ActiveDocument.ActiveSheet.CopyBitmapToClipboard

This will only take a screenshot of what appears on screen , not offscreen

Re: Define area in Dashboard to PPT

eromiyasimon — Thu, 08 Dec 2016 11:06:19 GMT

sir i have implemented all the things that you mentioned above and still its not working.

thank you

Re: Define area in Dashboard to PPT

vinieme12 — Thu, 08 Dec 2016 11:17:34 GMT

Are you sure you have no scrollbars on the dashboard to the right???

Delete your old PPT and try