TextEffect to TextFrame Adjustment Mismatch

Question

A shape on a PowerPoint slide would be replaced with a sub() I have. A set of cells from Excel were put into the existing shape (PasteSpecial DataType:=0). I'm attempting to insert a newer version of the same range to replace the copied range on the slide. With the exception of, I think my current code is correct. TextEffect. Where I'm getting a "Type Mismatch" error in the text. Is this because it's a group of cells rather than a single cell? I've looked through other discussions, but I'm not sure what modification this particular line of code needs.

Sub ReplaceTable()
  Dim PowerPointApp As PowerPoint.Application
  Dim myPresentation As PowerPoint.Presentation
  Dim i As Object
  
  Set PowerPointApp = GetObject(, "PowerPoint.Application")
  Set myPresentation = PowerPointApp.ActivePresentation
  
  Dim SlideIndex
  Dim SlideShape
  Dim ShapeContent

  For Each i In Worksheets("Sheet1").Range("H2:H" & Worksheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row)
  
    SlideIndex = Worksheets("Sheet1").Range("H" & i.Row) 'moves to defined slide index
    SlideShape = "Content Placeholder 3" 'selects shape
    ShapeContent = Worksheets("Sheet2").Range("D9:V24") 'copies new tabular data to replace current table on slide
    myPresentation.Slides(SlideIndex).Shapes(SlideShape).TextEffect.Text = ShapeContent
    
  Next i
  
  
End Sub

Answer 1

Delete the original shape and then replace, it as so:

ShapeContent.Copy 
myPresentation.Slides(SlideIndex).Shapes(SlideShape).Delete
myPresentation.Slides(SlideIndex).Shapes.PasteSpecial DataType:=0