word art cahnge to all slides at once

piper7971 · #1 08-02-2015, 05:37 PM

Is it possible to change all wordarts in all slides at once?

I know you can change all fonts in a presentations at once with replace. I use a wordart font type and I need to change it but there too many slides and I did not use slide master to do the text. Is there a vba code or any other way I can use instead of going slide by slide ?

JohnWilson · #2 08-03-2015, 10:44 AM

If you just want to change the font this MIGHT work (use a copy because I didn't test it)

Code:

Sub WordArty()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.TextFrame2.WordArtFormat >= 0 Then
oshp.TextFrame2.TextRange.Font.Name = "Arial"
End If
Next oshp
Next osld
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Pulling Specific Slides from a Deck to create new slides	ColinW	PowerPoint	2	07-17-2015 11:30 AM
Difference between Slides.addSlide and Slides.Add?	tinfanide	PowerPoint	3	12-29-2012 11:55 PM
Inserting slides between existing slides in 2003	watsonstudios	PowerPoint	1	05-20-2011 08:15 PM
linking PPT slides in Word docs	Caroline	Office	0	04-04-2011 12:06 PM
inserting power point slides into Word	MastanehJD	Drawing and Graphics	6	11-08-2009 01:24 PM