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?
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
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
John Wilson
Microsoft PowerPoint MVP
Amazing Free PowerPoint Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html