#1
|
|||
|
|||
word art cahnge to all slides at once
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 ? |
#2
|
|||
|
|||
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 |