3 Replies Latest reply: Mar 4, 2011 9:43 AM by Sergio Martin Alvarez RSS

    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?

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

          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