Delete shapes with no fill and no line
You've imported and ungrouped a vector graphic so you can edit it. Right away you find that there are loads of invisible shapes (shapes with no line and no fill). They don't add anything to the drawing -- hey, they're invisible, after all -- and you want to get rid of them all.
This vba snippet will delete any shapes with no fill and no outline on the current slide.
Sub If_NoLine_And_NoFill_Then_KILL() Dim oSh As Shape Dim x As Long For x = ActiveWindow.Selection.SlideRange.Shapes.Count To 1 Step -1 Set oSh = ActiveWindow.Selection.SlideRange.Shapes(x) If oSh.Fill.Visible = msoFalse Then If oSh.Line.Visible = msoFalse Then oSh.Delete End If End If Next ' X End Sub
See How do I use VBA code in PowerPoint? to learn how to use this example code.