Font.Shrink-Methode (Publisher)

Reduziert die Schriftgröße auf die nächste verfügbare Größe. Wenn die Auswahl oder der Bereich mehr als eine Schriftgröße enthält, werden die Größen jeweils auf die nächste verfügbare Einstellung reduziert.

Syntax

Ausdruck. Schrumpfen

Ausdruck Eine Variable, die ein Font-Objekt darstellt.

Hinweise

Anwenden der Shrink -Methode auf Text, der bereits die kleinste in Microsoft Publisher (0,5 Punkt) zulässige Größe hat keine Auswirkung.

Beispiel

In diesem Beispiel wird eine Zeile mit immer kleineren Zs in ein neues Dokument eingefügt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.