Sleeper: Select all shapes on a slide that have no fill

I'm after some VBA for PPT that selects all the shapes on a slide that have no fill (sorry I can't edit the title). Can anyone help please?

Try this

NOTE as written it will ignore placeholders which normally have no fill

Code:

---

Sub selector()
Dim osld As Slide
Dim oshp As Shape
Set osld = ActiveWindow.Selection.SlideRange(1)
ActiveWindow.Selection.Unselect
For Each oshp In osld.Shapes
If oshp.Type <> msoPlaceholder Then
If oshp.Fill.Visible = False Then oshp.Select Replace:=False
End If
Next oshp
End Sub

---