Font.Shrink Method (Word)

Decreases the font size to the next available size.


expression. Shrink

expression A variable that represents a 'Font' object.


If the selection or range contains more than one font size, each size is decreased to the next available setting.


This example inserts a line of increasingly smaller Z's in a new document.

Set myRange = Documents.Add.Content 
myRange.Font.Size = 45 
For Count = 1 To 5 
 myRange.InsertAfter "Z" 
 For Count2 = 1 to 3 
 Next Count2 
Next Count

See also

Font Object