topic Re: Export to PPT in QlikView

Export to PPT

vinicius_siquei — Wed, 09 Oct 2013 14:14:59 GMT

Folks,

I´m using the macro below to export charts to PowerPoint, however I´m having issues with the parameters used for positioning.

Sub Export2PPT_IndividualCharts

Set PPApp = CreateObject("Powerpoint.Application")

PPApp.Visible = True ' Create a presentation

Set PPPres = PPApp.Presentations.Add

Set PPSlide = PPPres.Slides.Add(1, 1)

PPSlide.Shapes(1).Delete ' removes the title

PPSlide.Shapes(1).Delete ' removes the text box

ActiveDocument.GetSheetObject("CH198").CopyBitmapToClipboard

ActiveDocument.GetApplication.WaitForIdle

with PPSlide.Shapes.Paste

.Left = 150

.Top = 50

.Width = 150

.Height = 450

end with

PPPres.SaveAs "C:\Individual.ppt" 'comment this if you dont want ppt to close automatically

PPPres.Close 'comment this if you dont want ppt to close automatically

PPApp.Quit 'comment this if you dont want ppt to close automatically

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub

I´m receiving expected object error message for

.Left = 150

.Top = 50

.Width = 150

.Height = 450

Any Ideas of what can be done to solve this problem ?

Re: Export to PPT

bbi_mba_76 — Wed, 09 Oct 2013 14:34:51 GMT

Hi,

could be that you have to add a with ?

with PPSlide.Shapes.Paste

With .Shapes(.Shapes.Count)

.Left = 50

.Top = 100

.Width = 600

.Height = 400

End With

End With

Re: Export to PPT

vinicius_siquei — Wed, 09 Oct 2013 19:37:23 GMT

I also get success by using :

with PPSlide.Shapes.Paste
           PPSlide.Shapes(PPSlide.Shapes.Count).Left = 825
           PPSlide.Shapes(PPSlide.Shapes.Count).Top = 430
      end with

Re: Export to PPT

AbhijitBansode — Wed, 20 Nov 2013 06:57:33 GMT

It is not working in webview mode.