Is there a way to place a word document it contains many chart

thanks for your time

i get error when i run this macro

and i get this macro but same issue 

Sub ConvertChartsToObjects()
    Dim obj As InlineShape
    Dim objType As String
    Dim filePath As String
    
    ' Loop through all the inline shapes in the document
    For Each obj In ActiveDocument.InlineShapes
        ' Check if the inline shape is a chart
        If obj.Type = wdInlineShapeOLEObject And obj.OLEFormat.ClassType = "Excel.Chart.8" Then
            ' Convert the chart to an object
            filePath = obj.OLEFormat.SourceFullName
            obj.OLEFormat.DoVerb verbIndex:=wdOLEVerbPrimary
            obj.Select
            Selection.Copy
            Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine
            ActiveDocument.UndoClear
        End If
    Next obj
    
    ' Notify the user that the conversion is complete
    MsgBox "All charts have been converted to objects."
End Sub