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?
Printable View
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