3 Replies Latest reply: Feb 20, 2015 9:06 AM by Marcus Sommer RSS

    Macro exporting to Powerpoint 2013

      Hi everyone,

       

      i created a Macro on QV 11 in order to export my dashboard to PPT charts.

      Everything worked with Office 2010. Once i updated to Office 2013 the macro stops on the highlighted commands. If i comment it everything works (but i'm not able to position the images in the right way).

      Can you please help me?

       

      Sub ExportPPT

       

      Set objPPT = CreateObject("PowerPoint.Application")

      objPPT.Visible = True

      Set objPresentation = objPPT.Presentations.Open("C:\XXXXXXstica.ppt")

      Set PPSlide = objPresentation.Slides(4)

      ActiveDocument.GetSheetObject("CH06").CopyBitmapToClipboard

              With PPSlide.Shapes.Paste

             .IncrementLeft 130

             .IncrementTop -60

             .ScaleHeight 1.1, msoTrue

             .ScaleWidth 1.1, msoTrue

            

        end with