You can convert a selected shape to a frreform using the executemso method but I suspect this isn't really what you are trying to do so I have also added code to (I think) duplicate what your code does.
[CODE]Sub ConvertFF()
If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
Application.CommandBars.ExecuteMso ("ShapeConvertToFreeform")
End Sub[CODE]
Code:
Sub ungroupEMF()
Dim oshp As Shape
Dim oshpR As ShapeRange
Dim osld As Slide
On Error Resume Next
If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
Set osld = ActiveWindow.View.Slide
Set oshp = ActiveWindow.Selection.ShapeRange(1)
oshp.Copy
osld.Shapes.PasteSpecial(ppPasteEnhancedMetafile).Select
With ActiveWindow.Selection.ShapeRange
.Left = oshp.Left
.Top = oshp.Top
oshp.Delete
.Ungroup.Select
.Ungroup.Select
End With
End Sub