Delete shapes with no fill and no line
Problem
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.
Solution
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.
Search terms:delete,fill,line,invisible