TextFrame2.AutoSize プロパティ (Office)
指定した図形のサイズを、境界ボックス内のテキストに合わせて自動的に変更するかどうかを示す値を取得または設定します。 値の取得と設定が可能です。
構文
式。Autosize
式TextFrame2 オブジェクトを返す式。
注釈
AutoSize プロパティの値は、次の MsoAutoSize クラスの定数のいずれかです。
- msoAutoSizeMixed
- msoAutoSizeNone
- msoAutoSizeShapeToFitText
- msoAutoSizeTextToFitShape
例
次のコードは、スライド 1 のタイトル テキストのサイズを、テキストを含むレイアウト枠に合うように調整する方法を示しています。
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides(1)
With pptSlide.Shapes(1)
If .TextFrame2.TextRange.Characters.Count < 50 Then
.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
End If
End With
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。