PowerPoint VBA to break links in OLEFormat object

Question

I have a PowerPoint 2007 slide with two embedded excel objects. I want to access the sheet1 tab and break all links. I was trying to copy and paste by value, but I am stuck, although the code runs, it does nothing. Any help is greatly appreciated.

Dim oSl As Slide Dim oSheet As Object Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation

For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes

ActiveWindow.View.GotoSlide oSl.SlideIndex
    If oSh.Type = msoEmbeddedOLEObject Then
          oSh.OLEFormat.Activate
              With oSh.OLEFormat.Object

            .Application.Workbooks(1).Worksheets(1).Cells.Copy
           .Application.Workbooks(1).Worksheets(1).Cells.PasteSpecial Paste:=xlPasteValues


             End With


        ActiveWindow.Selection.Unselect
        ActiveWindow.View.GotoSlide oSl.SlideIndex

    End If

Next

Next End Sub

Answer 1

Updated/edited ... skip the Application update line, try like so instead:

If oSh.Type = msoEmbeddedOLEObject Then
    With oSh.OLEFormat.Object   ' added .Object here
        .Activate
        .Application.workbooks(1).worksheets(2).Cells.Copy
        .Application.workbooks(1).worksheets(2).Cells.PasteSpecial Paste:=xlPasteValues
    End With
End if

First, either define a constant lxPasteValues As Long = -4163 or replace xlPasteValues with -4163 in the code above.