remove shape fill all text boxes

Guessed · #1 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).

Gromadavo · #2 06-04-2017, 04:16 AM

Hey,
Thanks a lot!

i try to run it, but i get runtime error '-2147467263 (80004001)': the specified value is out of range.

the problem seems to be in the 4th line: "if a Shp.textframe.........

Do you know what the problem could be?

Thank you!

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