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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for