Встроенные файлы не обнаруживают файлы Excel

Question

Приведенный ниже код был разработан таким образом, чтобы он мог заменить встроенные файлы своими изображениями в презентации PowerPoint.Однако он смог изменить файлы Visio, а не файлы Excel в презентации.Есть идеи, почему это так?

enter code here

  Sub imagereplacement()


    With ActivePresentation
    z = .Slides(.Slides.Count).SlideNumber
    MsgBox z, vbDefaultButton1, "Total Slides"
    End With


  For i = 1 To z
Set sld = ActivePresentation.Slides(i)
    With ActivePresentation.Slides(i)
    s = .Shapes.Count
End With

    For c = 1 To s

        If sld.Shapes(c).Type = msoEmbeddedOLEObject Then
        ActivePresentation.Slides(i).Shapes(c).Copy
        Set newsh = ActivePresentation.Slides(i).Shapes.PasteSpecial(ppPasteEnhancedMetafile)(1)
            With newsh
                .Left = ActivePresentation.Slides(i).Shapes(c).Left
                .Top = ActivePresentation.Slides(i).Shapes(c).Top

             Do
                .ZOrder (msoSendBackward)
            Loop Until .ZOrderPosition = .ZOrderPosition
            End With

            For k = ActivePresentation.Slides(i).TimeLine.MainSequence.Count To 1 Step -1
                If ActivePresentation.Slides(i).Shapes(c) Is ActivePresentation.Slides(i).TimeLine.MainSequence.Item(k).Shape Then
                ActivePresentation.Slides(i).TimeLine.MainSequence.Item(k).Shape = newsh
                End If
            Next k

        ActivePresentation.Slides(i).Shapes(c).Delete
        Else

        GoTo skip
        End If
    skip:

    Next c

   Next i
      MsgBox "Embedded files replaced by their Images", vbDefaultButton1

   End Sub