title: Excel to PowerPoint PasteSpecial and Keep Source Formatting
body: <p>I'm trying to copy and paste a range from an Excel document into a PowerPoint slide.</p>
  
  <p>It is copying the range as an image rather than keeping source formatting.</p>
  
  <pre><code>oPPTApp As PowerPoint.Application
  Dim oPPTFile As PowerPoint.Presentation
  Dim oPPTShape As PowerPoint.Shape
  Dim oPPTSlide As PowerPoint.Slide
  On Error Resume Next
  Set XLApp = GetObject(, "Excel.Application")
  On Error GoTo 0
  
  Windows("File1.xlsx").Activate
  Sheets("Sheet1").Select
  Range("B3:N9").Select
  Selection.Copy
  oPPTApp.ActiveWindow.View.GotoSlide (2)
  oPPTApp.ActiveWindow.Panes(2).Activate
  oPPTApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject
  oPPTApp.ActiveWindow.Selection.ShapeRange.Left = 35
  oPPTApp.ActiveWindow.Selection.ShapeRange.Top = 150
  </code></pre>