Font.Shrink Method (Word)

Decreases the font size to the next available size.

Syntax

expression. Shrink

expression A variable that represents a 'Font' object.

Remarks

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

Example

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 
 myRange.Characters(Count).Font.Shrink 
 Next Count2 
Next Count

See also

Font Object