How remove a repeated text box from all slides in PowerPoint

FlashPoint · #1 01-05-2018, 02:18 AM

Hello there

I have a PowerPoint document that it’s modifier (he’s not even it’s author) used a textbox in all of the slides & put his email address there!
Slides are a lot & I can’t simple remove them one by one it’s a waste of time.
Can anyone plz help me how can I remove them all at once? I saw someone did it to a repeated picture using “Macros” but I’m not expert how to do.
Your help would be appreciated, thx.

JohnWilson · #2 01-05-2018, 05:04 AM

Code:

Sub zapper()

Dim osld As Slide
Dim L As Long
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
If osld.Shapes(L).HasTextFrame Then
If osld.Shapes(L).TextFrame.HasText Then
' obviously use their address
If LCase(osld.Shapes(L).TextFrame.TextRange) Like Lcase( "*john@somewhere.com*" )Then osld.Shapes(L).Delete
End If
End If
Next
Next
End Sub

FlashPoint · #3 01-05-2018, 07:03 AM

Quote:

Originally Posted by JohnWilson

Code:

Sub zapper()

Dim osld As Slide
Dim L As Long
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
If osld.Shapes(L).HasTextFrame Then
If osld.Shapes(L).TextFrame.HasText Then
' obviously use their address
If LCase(osld.Shapes(L).TextFrame.TextRange) Like Lcase( "*john@somewhere.com*" )Then osld.Shapes(L).Delete
End If
End If
Next
Next
End Sub

Thanks for help but can u explain a little more how can I use it?

JohnWilson · #4 01-07-2018, 02:51 AM

Google for how to use vba

FlashPoint · #5 01-07-2018, 12:41 PM

Quote:

Originally Posted by JohnWilson

Google for how to use vba

Thanks I learned to how use Macros & used your code, but this code only removed his Email address from first slide not all that hundreds slides.
Can u check it again plz? Thx

JohnWilson · #6 01-07-2018, 01:05 PM

It should remove them all.
Are you sure you got the code correct (eg NOT taking out the asterisks's when you modified the email the email?)
Can you post the presentation somewhere? (maybe just a few of the slides)

FlashPoint · #7 01-07-2018, 01:28 PM

Quote:

Originally Posted by JohnWilson

It should remove them all.
Are you sure you got the code correct (eg NOT taking out the asterisks's when you modified the email the email?)
Can you post the presentation somewhere? (maybe just a few of the slides)

File is big but plz first check my code to make sure that I didn't modify it in wrong way:

Sub Hello()
Dim osld As Slide
Dim L As Long
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
If osld.Shapes(L).HasTextFrame Then
If osld.Shapes(L).TextFrame.HasText Then
' obviously use their address
If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("*email@aa.com*") Then osld.Shapes(L).Delete
End If
End If
Next
Next
End Sub

JohnWilson · #8 01-07-2018, 01:56 PM

Looks OK.

Are you sure you can manually delete the textboxes?

They may have added textboxes to the master or layouts which the code will not delete

And just in case you are trying to pass of someones work as your own I will be able to tell so don't go there if that is what you are doing. Apologies if this is legit!

FlashPoint · #9 01-07-2018, 02:17 PM

Quote:

Originally Posted by JohnWilson

Looks OK.

Are you sure you can manually delete the textboxes?

They may have added textboxes to the master or layouts which the code will not delete

And just in case you are trying to pass of someones work as your own I will be able to tell so don't go there if that is what you are doing. Apologies if this is legit!

No it's not illegal, it's some slides of a medical course from a very bad teacher, actually he spamed whole file with his email, slides and images belongs to famous professor Guyton.
I want to read it for his great work on medical science not those spams!

anyway, I uploaded file here with several slides, can u plz check and help me in? thx

http://www.mediafire.com/file/7qgd23...gyton%2092.ppt

JohnWilson · #10 01-08-2018, 01:40 AM

Looks like you have the email wrong. It is remove

Make sure the email in the code matches that on the slides.

Since it's a fairly unusual email you could also use:

If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("*remove*") Then osld.Shapes(L).Delete

FlashPoint · #11 01-08-2018, 08:44 AM

Quote:

Originally Posted by JohnWilson

Looks like you have the email wrong. It is pourshanazari@med.mui.ac.ir

Make sure the email in the code matches that on the slides.

Since it's a fairly unusual email you could also use:

If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("*remove*") Then osld.Shapes(L).Delete

Ahhh yes he used adifferent email at first slide so I though other slides are same too!
now I used your first code with main spam Email and they all removed!

thank u so much you are genius in coding!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Powerpoint 2016 slide show presenter view as powerpoint 2010 multiple slides at the bottom	jomo252	PowerPoint	0	10-04-2017 12:20 PM
Add text during powerpoint show duplicated to all slides	techsupport1	PowerPoint	0	09-07-2016 02:33 PM
Remove title from APA citation repeated first author	pablrodr	Word	4	09-11-2015 01:00 AM
Generating text output from PowerPoint picture/name slides	bornslippy	PowerPoint	2	12-05-2013 11:04 AM
Powerpoint 2003 - slides with Excel text	franklyorange	PowerPoint	0	08-19-2008 09:30 AM