#1
|
|||
|
|||
Change single character in PPT to another font macro
Hi,
I have a ppt presentation and am using Century Gothic as the main font. However Century Gothic has the world's worst question mark. So I went through all the font's and Dotum has the closest lookalike font question mark which fits. However I don't want to have to go through 140 slides a week and change by hand each question mark from Century Gothic to Dotum. Is there any way to macro this? I am aware MS offers the complete font change option, but that's no good. I've searched online and people have macros for entire font changes. again no good, any help appreciated. I don't want to change the font size or colour, just the font for one character, the character might be 32, 30, 28 point century gothic but it needs to chaneg to the relevant 32,30,28 dotum for ? |
#2
|
|||
|
|||
answered by shg over on mr excel
Sub x()
Dim oSld As Slide Dim oShp As Shape Dim rTxt As TextRange Dim rFind As TextRange For Each oSld In ActivePresentation.Slides For Each oShp In oSld.Shapes If oShp.HasTextFrame Then Set rTxt = oShp.TextFrame.TextRange Set rFind = rTxt.Find(FindWhat:="?") Do While Not rFind Is Nothing With rFind .Font.Name = "Dotum" Set rFind = rTxt.Find(FindWhat:="?", _ After:=.Start + .Length - 1) End With Loop End If Next Next End Sub |
Tags |
font, formatting |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Word macro doesn't change font color | Spideriffic | Word VBA | 8 | 11-04-2015 03:47 AM |
How to change the color of Character Border? | tinfanide | Word | 4 | 10-27-2012 06:35 AM |
Make Font Dropdown Change All Styles' Font | trevorhiller | Word | 1 | 04-14-2012 02:14 AM |
Deterimine if a character is supported by a font | moishy | Word VBA | 2 | 02-27-2012 02:53 AM |
Change the leading of a character style??? | Char t | Word | 1 | 11-05-2011 01:18 PM |