|
|
#10
05-08-2018, 07:18 AM
|
||||
|
||||
I would tag the text boxes I wanted to refit by putting something in the Alt Text property. This way you can use the same text every time
Code:
Sub ResizeTextInShapes()
Dim aShp As Shape
For Each aShp In ActiveDocument.Shapes
With aShp.TextFrame
If .HasText And aShp.AlternativeText <> "" Then
Do While .Overflowing
.TextRange.Font.Shrink
Loop
End If
End With
Next aShp
End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Formats in text boxes in Word 2016 changing unexpectedly
|
PugwashAtNPEU | Word | 4 | 05-04-2017 05:53 AM |
| Changing Default Fonts for Text Boxes and Tables | LadyBug679 | PowerPoint | 2 | 04-01-2016 06:42 AM |
| Changing the font colour in all text boxes | marqives | Word VBA | 1 | 11-25-2014 06:05 PM |
|
Changing the placeholder text for drop down boxes
|
DeadBatteries | Word | 1 | 08-24-2012 09:09 AM |
|
Arrows and text boxes disappear when changing view?
|
Jesse | Word | 4 | 06-12-2012 05:28 PM |
Windows 10 
Office 2016
Threaded Mode