TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub OLEOLEOutInFree()
' Converts OLE shapes to groups

    Dim oSh As Shape
    Dim oSl As Slide
    Dim oNewSh As Shape

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            If oSh.Type = msoEmbeddedOLEObject Or oSh.Type = msoLinkedOLEObject Then
                On Error Resume Next
                Set oNewSh = oSh.Ungroup.Group
                If Err.Number > 0 Then
                    MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf _
                        & "on slide " & CStr(oSl.SlideIndex) _
                        & "shape named " & oSh.Name
                End If
            End If
        Next
    Next

End Sub