title: How can extract data while keeping format from excel to PowerPoint using vba
body: <p>i have code that can extract data only but i want to extract with their format</p>
  <p>can u plz help me with this issue?</p>
  <p>this is my code so far:
  '''</p>
  <pre><code>Dim PPTApp As PowerPoint.Application
  Dim PPTPres As PowerPoint.Presentation 
  Dim PPTSlide As PowerPoint.Slide 
  Dim ExcRng As Range
  Dim RngArray As Variant 
  Set PPTApp = New PowerPoint.Application 
  PPTApp.Visible = True 
  Set PPTPres = PPTApp.Presentations.Add 
  RngArray = Array(Worksheets(&quot;sheet1&quot;).Range(&quot;D4:E8&quot;))
  For x = LBound(RngArray) To UBound(RngArray) 
  Set ExcRng = RngArray(x) ExcRng.Copy 
  Set PPTSlide = PPTPres.Slides.Add(x + 1, ppLayoutBlank) 
  PPTSlide.Shapes.Paste Next x 
  End Sub 
  </code></pre>
  <p>'''</p>