Dim pres As PowerPoint.Application  
    Set pres = CreateObject( "PowerPoint.Application" )  

    file_pres = Application.GetOpenFilename( "PowerPoint presentation (.ppt), .ppt" )
    If file_pres <> False Then
        pres.Visible = True
        pres.Presentations.Open fileName:=file_pres, ReadOnly:=False
    Else
      Exit Sub
    End If

    MsgBox pres.ActivePresentation.Slides( 1 ).Shapes( 2 ).Type = mbeddedOLEObject

pres.ActivePresentation.Slides( 1 ).Shapes( 2 ).OLEFormat.DoVerb ( 1 )