Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 
Not applicable

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

3 Replies
marcus_sommer

Try it without Increment only with left/top ...

- Marcus

Not applicable
Author

Thank you Marcus, but i have the same issue.

The script stops at the Left command..