Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
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