title: Copy ppt into Excel with formatting
body: <p>I am trying to copy from powerpoint to excel and trying to keep the power point formating.</p>
  
  <pre><code>For x = 1 To pptApp.ActivePresentation.Slides.Count
      pptApp.ActivePresentation.Slides.Range(Array(x)).Select
      pptApp.ActivePresentation.Slides.Range(Array(x)).Copy
      pptApp.Windows(2).Activate        
      pptApp.ActiveWindow.View.Paste
      pptApp.Windows(2).Activate
  Next x
  </code></pre>
  
  <p>I'm currently using this to do the copy and it works fine, however it doesn't copy the formatting.</p>
  
  <p>Any Ideas how to achieve this?
  Sp</p>