remove shape fill all text boxes

Guessed · #2 06-03-2017, 08:56 PM

This should get you started

Code:

Sub EmptyShapes()
  Dim aShp As Shape, aShp2 As Shape
  For Each aShp In ActiveDocument.Shapes
    If aShp.TextFrame.HasText Then
      aShp.Fill.Visible = False
    ElseIf aShp.Type = msoGroup Then
      For Each aShp2 In aShp.GroupItems
        If aShp2.TextFrame.HasText Then
          aShp2.Fill.Visible = False
        End If
      Next aShp2
    End If
  Next aShp
End Sub

This only does one level of grouping. You may need to rewrite it to use a recursive function in case there are nested groups (ie groups of groups).

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Fill / Animate Arc Shape	Ds7	PowerPoint	0	05-10-2016 01:53 AM
How to remove all pictures but keep text boxes	gn4619	Word VBA	2	10-22-2015 08:19 PM
Using variables to fill different boxes	snoopo71	PowerPoint	1	12-28-2014 08:43 AM
cropping a picture fill shape	Gerbutland	PowerPoint	5	04-06-2014 01:23 AM
Change accent theme color used as shape fill (not RGBs)	preetidb	PowerPoint	4	12-30-2013 03:22 PM