Font.Shrink Method

  • Article
Word Developer Reference

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.

Visual Basic for Applications 
  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