title: Copying a Range from Excel and Pasting it into Powerpoint NOT as a metafile but as a table which you can edit in PPP
body: <p>All I want to do is copy a range from Excel and then paste this range into PowerPoint. </p>
  
  <p>When my range is manually copied from Excel to the clipboard... If I right click on a blank slide when pasting into PowerPoint, it gives me the option to paste "using destination styles". </p>
  
  <p>This means that I can edit the resulting table. This is the result I want.</p>
  
  <p>So far I have only found solutions which involve pasting in as a metafile.</p>
  
  <p>If you have a solution please can you show me the full code including the dimensions as VBA in PowerPoint really isn't my cup of tea.</p>
  
  <p>Thanks in advance for restoring my sanity!</p>
  
  <pre><code>Private Sub CommandButton2_Click()
  
          Dim newPowerPoint As PowerPoint.Application
          Dim activeSlide As PowerPoint.Slide
          Dim cht As Excel.ChartObject
  
  
       'Look for existing instance
          On Error Resume Next
          Set newPowerPoint = GetObject(, "PowerPoint.Application")
          On Error GoTo 0
  
  
  
      'Show the PowerPoint
          newPowerPoint.Visible = True
  
  
              newPowerPoint.ActiveWindow.View.GotoSlide newPowerPoint.ActivePresentation.Slides.count
              Set activeSlide = newPowerPoint.ActivePresentation.Slides(newPowerPoint.ActivePresentation.Slides.count)
  
  
              ActiveSheet.Range("d51:d57").Copy
              activeSlide.Shapes.PasteSpecial ppPasteEnhancedMetafile
              newPowerPoint.ActiveWindow.Selection.ShapeRange.Top = 165
              newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = 395
  
      AppActivate ("Microsoft PowerPoint")
  
      Set activeSlide = Nothing
      Set newPowerPoint = Nothing
  
  End Sub
  </code></pre>