Hey Community,
I need a VBA Code that selects and then deletes all shapes in a PowerPoint file that do not contain any text(/words).
I tried this Code:
Private Sub Test()
Dim sShapes As Shape
For Each sShapes In ActivePresentation.Slides.
If Not sShapes.TextFrame Is Nothing Then
sShapes.Delete
Next sShapes
End If
End Sub
The basic idea is that I ungrouped a smart art and would like to deleted the shapes in which I didn't write any text.
Thanks in Advance
Thomas
I need a VBA Code that selects and then deletes all shapes in a PowerPoint file that do not contain any text(/words).
I tried this Code:
Private Sub Test()
Dim sShapes As Shape
For Each sShapes In ActivePresentation.Slides.
If Not sShapes.TextFrame Is Nothing Then
sShapes.Delete
Next sShapes
End If
End Sub
The basic idea is that I ungrouped a smart art and would like to deleted the shapes in which I didn't write any text.
Thanks in Advance
Thomas
Learn from the best
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.