Hi mw,
I need to define the position of each chart in ppt slide from all the qlikview sheets
and i am not able to find the required script from forum.
Initially i have exported complete dashboard to ppt, but the output is overlapping the ppt slides. So, i thought to export by defining height & width for each object. But this is working only for one sheet.
sub ppt
Set PPApp = CreateObject("PowerPoint.Application")
Set PPPres = PPApp.Presentations.Add
Set PPSlide = PPPres.Slides.Add(1,2)
PPSlide.Shapes(1).Delete
PPSlide.Shapes(1).Delete
put "Document\TX267",PPSlide,100,60
PPApp.ActiveWindow.Selection.ShapeRange.Width = 40
PPApp.ActiveWindow.Selection.ShapeRange.Height = 40
put "Document\CH31",PPSlide,150,100
PPApp.ActiveWindow.Selection.ShapeRange.Width = 130
PPApp.ActiveWindow.Selection.ShapeRange.Height = 150
FileLoc = CreateObject("WScript.Shell").SpecialFolders("Desktop")
PPPres.SaveAs FileLoc & "/Test_Project" & ".pptx"
PPPres.Close
PPApp.Quit
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
msgbox "PPT Extract Successful",64,"Complete"
end sub
sub put(obj,pps,x,y)
ActiveDocument.GetSheetObject(obj).CopyBitmapToClipboard
pps.Shapes.Paste
Set o = pps.Shapes(pps.Shapes.Count)
o.Left = x
o.Top = y
end sub
Can you help me how can i do this for all the sheets at a time
