title: How to Copy paste data range from Excel to powerpoint slide
body: <p>I am trying to prepare code to copy and paste excel data range from excel sheet to powerpoint slide but I am able to paste images only.</p>
  
  <p>Please help with the suitable code. The code I am using is as follows:</p>
  
  <pre><code>Sub WorkbooktoPowerPoint()
  
      Dim pp As Object
      Dim PPPres As Object
      Dim PPSlide As Object
      Dim Rng As Range
  
      Set pp = CreateObject("PowerPoint.Application")
      Set PPPres = pp.Presentations.Add
      pp.Visible = True
      Set Rng = ActiveSheet.Range("B1:J31")
  
      Rng.Copy
  
      SlideCount = PPPres.Slides.Count
      Set PPSlide = PPPres.Slides.Add(SlideCount + 1, 12)
  
      PPSlide.Shapes.PasteSpecial ppPasteOLEObject
      PPSlide.Shapes(1).Select
      pp.ActiveWindow.Selection.ShapeRange.Align msoAlignTops, True
      pp.ActiveWindow.Selection.ShapeRange.Top = 65
      pp.ActiveWindow.Selection.ShapeRange.Left = 7.2
      pp.ActiveWindow.Selection.ShapeRange.Width = 700
  
      pp.Activate
      Set PPSlide = Nothing
      Set PPPres = Nothing
      Set pp = Nothing
  
  End Sub
  </code></pre>