Partager via

Font.Shrink, méthode (Publisher)

  • Article

Réduit la taille de police à la taille disponible suivante. Si la sélection ou la plage contient plus d’une taille de police, chacune est réduite à la valeur suivante.

Syntaxe

expression. Psy

Expression Variable qui représente un objet Font .

Remarques

L'application de la méthode Shrink à un texte qui utilise déjà la plus petite taille autorisée par Microsoft Publisher (0,5 point) n'a aucun effet.

Exemple

Cet exemple montre comment insérer une ligne de Z de plus en plus petite dans un nouveau 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.