Font.Shrink メソッド (Publisher)

選択されている文字列のフォント サイズを、現在のプリンターで使用可能な次の大きさまで縮小します。 選択範囲に複数のフォント サイズが設定されている場合は、それぞれのフォント サイズが使用可能な次の大きさまで縮小します。

構文

式。縮小

式Font オブジェクトを表す変数。

注釈

Microsoft Publisher (0.5 ポイント) で許可されている最小のサイズになっているテキストに 縮小 メソッドを適用しても効果はありません。

例

次の使用例は、新しいドキュメントに、ますます小さい Zs の行を挿入します。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。