Powerpoint script til at fjerne linket fra figur til fx Excel

Jeg har efter googling og selvransagning fået stykket følgende kode sammen:

Option Explicit
Sub Delinker()
Dim i As Integer, j As Integer

'sætter view'et da noget kode ikke virker ved normal view
    If ActiveWindow.ViewType <> ppViewSlideSorter Then
        ActiveWindow.ViewType = ppViewSlideSorter
    End If

'Kører alle slides igennem
    For i = 1 To ActivePresentation.Slides.Count
    ActivePresentation.Slides(i).Select

'Kører alle figurer på sliden igennem
        For j = 1 To ActivePresentation.Slides(i).Shapes.Count
   
'Hvis figuren er linket - bliver den kopieret, slettet og indsat som billede
        If ActivePresentation.Slides(i).Shapes(j).Type = msoEmbeddedOLEObject Then 
            ActivePresentation.Slides(i).Shapes(j).Copy
            ActivePresentation.Slides(i).Shapes(j).Delete
            ActiveWindow.ViewType = ppViewNormal
            ActiveWindow.View.PasteSpecial ppPasteMetafilePicture
            ActiveWindow.ViewType = ppViewSlideSorter
        End If
   
        Next j

    Next i

'Sætter slideshowet tilbage til normalview
    ActiveWindow.ViewType = ppViewNormal

'Besked til brugeren
    MsgBox "Alle linkede figurer er lavet til billeder" & Chr(13) & _
          "Husk at gemme dokumentet under nyt navn", vbInformation, "Information"

End Sub

Mit spørgsmål er nu, om det er muligt at fjerne alle de "view" koder, da de overordnet set virker ret ligegyldige. Jeg var nødsaget til at sætte dem ind, for at få koden til at virke, men der må være en anden og smartere vej rundt om problemstillingen :)

Til dem der ikke kan se formålet med koden, er det eksempelvis til store præsentationer med mange figurer der linker til excel, ecowin, mv.