Hi, all

I have this one code where it can generate PowerPoint presentation from content in Excel, specified in pre-defined sheet, named Definitions in the Excel file. There is something wrong with 2 lines of code:

 sld.Shapes(PPObjName).TextFrame.TextRange.Text = _
                Replace(sld.Shapes(PPObjName).TextFrame.TextRange.Text, OldText, NewText)
This specific line is supposed to detect old text in textbox in the specific PowerPoint page but I have tried several trials and the same error showed up:

Capture.PNG

Can I know the reason why? Hereby I attached both PPT template and the Excel file: https://drive.google.com/open?id=1vH...2WwImuoosZHsrC

Full code:

Option Explicit

Sub MakePowerpoint()
Dim MyPath As String
Dim FileName As String

Dim objPPT As Object
Dim ppt As Object
Dim sld As Object
Dim shp As Object
Dim PPName As String
Dim shpIndex As Long
Dim CurSlide As Long

Dim sh As Excel.Worksheet
Dim ObjName As String
Dim ObjType As String
Dim PPSldNum As Long
Dim PPObjName As String
Dim MyTop As Double
Dim MyLeft As Double
Dim MyHeight As Double
Dim MyWidth As Double
Dim cl As Range
Dim OldText As String
Dim NewText As String

' Set up the pathname and the output PowerPoint Presentation Name
MyPath = ThisWorkbook.Path
PPName = MyPath & "\" & Range("PPReport_Name")

' Copy the template file to the PowerPoint Presentation Name
FileCopy MyPath & "\" & Range("PPTemplate_Name"), PPName

' Open the PowerPoint Presentation
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
objPPT.Presentations.Open PPName

Set ppt = objPPT.activepresentation

' Add objects
For Each cl In Range("Table_Objects[Excel Page]")
    ObjType = cl.Offset(0, 2).Value     ' Type of the thing to copy
    If ObjType <> "Text" Then
        Set sh = Sheets(cl.Value)       ' Excel Sheet
        ObjName = cl.Offset(0, 1).Value ' Name of the thing to copy
    End If
    
    PPSldNum = cl.Offset(0, 3).Value    ' PowerPoint slide number
    PPObjName = cl.Offset(0, 4).Value   ' PowerPoint object
    MyTop = cl.Offset(0, 5).Value       ' Top
    MyLeft = cl.Offset(0, 6).Value      ' Left
    MyHeight = cl.Offset(0, 7).Value    ' Height
    MyWidth = cl.Offset(0, 8).Value     ' Width
    OldText = cl.Offset(0, 9).Value     ' Old Text
    NewText = cl.Offset(0, 10)          ' New Text
    
    Set sld = ppt.slides(PPSldNum)      ' Active Slide
    
    Select Case ObjType
        Case "Text"
            sld.Shapes(PPObjName).TextFrame.TextRange.Text = _
                Replace(sld.Shapes(PPObjName).TextFrame.TextRange.Text, OldText, NewText)
        Case "Chart"
            sh.Shapes(ObjName).CopyPicture
        Case "Range"
            sh.Range(ObjName).CopyPicture
        Case "Cell"
            sh.Range(ObjName).Copy
    End Select
    
    If ObjType = "Chart" Or ObjType = "Range" Then
        sld.Shapes.Paste
        shpIndex = sld.Shapes.Count
        With sld.Shapes(shpIndex)
            .LockAspectRatio = msoFalse
            .Top = 72 * MyTop
            .Left = 72 * MyLeft
            .Height = 72 * MyHeight
            .Width = 72 * MyWidth
        End With
    End If
    If ObjType = "Cell" Then
        'sld.Shapes.Paste
        sld.Shapes.PasteSpecial 0
        shpIndex = sld.Shapes.Count
        With sld.Shapes(shpIndex)
            .LockAspectRatio = msoFalse
            .Top = 72 * MyTop
            .Left = 72 * MyLeft
            .Height = 72 * MyHeight
            .Width = 72 * MyWidth
       End With
    End If
Next

Application.CutCopyMode = False

End Sub

Function GetText(ObjName As String, Pos As Long) As String
Dim cl As Range
Dim Result As String

Result = "Value not found"

For Each cl In Range("Table_TextFrame[PPObjName]")
    If cl.Value = ObjName Then
        Result = cl.Offset(0, Pos).Value
        Exit For
    End If
Next
GetText = Result
End Function