expression.Shrink
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Applying the Shrink method to text that is already the smallest size allowed by Publisher (0.5 point) has no effect.
Example
This example inserts a line of increasingly smaller Z's in a new document.
Dim shpText As Shape
Dim trTemp As TextRange
Dim intCount As Integer
Set shpText = ActiveDocument.Pages(1).Shapes _
.AddTextbox(Orientation:=pbTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=300, Height:=50)
Set trTemp = shpText.TextFrame.TextRange
With trTemp
.Font.Size = 45
.InsertAfter NewText:="ZZZZZZZZZZ"
For intCount = 2 To 10
.Characters(Start:=intCount, _
Length:=11 - intCount).Font.Shrink
Next intCount
End With