Qlik Community

QlikView Deployment

Discussion Board for collaboration related to QlikView Deployment.

Not applicable

How to Print the Entire Sheet from Access Point? How to copy multiple objects onto XL or Power point?

Instead of printing individual chart or table from a sheet I want to print the entire Sheet (tab) at one go. Is it possible from Access Point? How to select multiple charts from a sheet and copy them onto an XL sheet or Power point togather?

3 Replies
suniljain
Honored Contributor

How to Print the Entire Sheet from Access Point? How to copy multiple objects onto XL or Power point?

sub Export_To_XLS_PPT


ActiveDocument.ClearAll True

ActiveDocument.Fields("WORK_YEAR").Select ActiveDocument.Evaluate("Current_Year")
ActiveDocument.Fields("WORK_WEEK").Select ActiveDocument.Evaluate("LastWeek")
ActiveDocument.Fields("WORK_DAY").Select ActiveDocument.Evaluate("LastWeek")

'To Excel Generate
set obj = ActiveDocument.GetSheetObject("CH703")
obj.ExportEx "E:\Qlikview\Prima\PPT\Department_Loadinng.xls",5
set obj = ActiveDocument.GetSheetObject("CH704")
obj.ExportEx "E:\Qlikview\Prima\PPT\Top_5_Project.xls",5
set obj = ActiveDocument.GetSheetObject("CH705")
obj.ExportEx "E:\Qlikview\Prima\PPT\0HrsProject.xls",5

'To PPT Generate

Set PPApp = CreateObject("Powerpoint.Application")

PPApp.Visible = True ' Create a presentation

Set PPPres = PPApp.Presentations.Add


'Slide1 : HSSA Work allocation
Set PPSlide = PPPres.Slides.Add(1, 1)
ActiveDocument.GetSheetObject("CH15").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide2 : HSSA Objectives

Set PPSlide = PPPres.Slides.Add(1, 1)
ActiveDocument.GetSheetObject("CH633").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide3 : Operational Support

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH634").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 4 : Projectwise Contribution

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH635").CopyBitmapToClipboard
PPSlide.Shapes.Paste


'Slide 5 : Departmental Details BIa,HR,IT T & HD,ITSM&O,ITS&C,PCO,F&C

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH636").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH638").CopyBitmapToClipboard
PPSlide.Shapes.Paste


Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH639").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH640").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH641").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH642").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH643").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH644").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 6 : PCO
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH645").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH646").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH647").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 7 : ITSM & O
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH648").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH649").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH650").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 8 : IT S&C
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH651").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH652").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH653").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 9 : Training & Support
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH654").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH656").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH657").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 10 : F&C
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH658").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH659").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH660").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 11 : HR
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH661").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH662").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH663").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 12 : BIA-ABAP
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH664").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH665").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH666").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 13 : BIA-MM
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH667").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH668").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH669").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 14 : BIA-PM
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH670").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH672").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH671").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 15 : BIA-PS
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH673").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH674").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH675").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 16 : BIA-FICO
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH676").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH677").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH678").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 17 : BIA-PP
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH679").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH680").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH681").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 18 : BIA-BW
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH682").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH683").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH684").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 19 : BIA-HR
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH685").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH686").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH687").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 20 : BIA-AUTH
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH688").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH689").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH690").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 21 : BIA-SD
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH691").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH692").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH694").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 22 : BIA-SECRETARY
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH693").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH695").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH696").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 23 : BIA-RMX
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH697").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH699").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH700").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 24 : BASIC KNOW SAP,.NET
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH698").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH702").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH701").CopyBitmapToClipboard
PPSlide.Shapes.Paste

PPPres.SaveAs "E:\Qlikview\Prima\PPT\Presentation.ppt"
PPPres.Close
PPApp.Quit

Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing

end sub

Not applicable

How to Print the Entire Sheet from Access Point? How to copy multiple objects onto XL or Power point?

I got the error when using this macro.

error ActiveX component can't create object: 'Powerpoint.Application'

sergio
New Contributor III

How to Print the Entire Sheet from Access Point? How to copy multiple objects onto XL or Power point?

Hi, you have to change the two combo box on the left of the module editor, select allow system access in both, and try again.

Regards

Community Browser