Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

文字列を縮小して全体を表示（ShrinkToFit プロパティ）

2015/07/25

ShrinkToFit プロパティ

ShrinkToFit プロパティは、セルに表示されている値がセル幅を超えている場合に、セル幅に収まるように自動的に文字を縮小して表示するかどうかを設定します。
設定値が True の場合に、セルの値は縮小表示されます。

【書式】

＜取得＞
rsult = object.ShrinkToFit

＜設定＞
object.ShrinkToFit = boolean

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
boolean ・・・セル幅に合わせて自動的に縮小表示させる場合は、True、そうでない場合は、False を指定します。
result ・・・指定されたセル範囲内のすべてのセルで文字が自動的に縮小表示される設定になっている場合は True となります。指定されたセル範囲内のすべてのセルで縮小表示設定になっていない場合は False を返します。指定されたセル範囲内に縮小表示設定とそうでない設定が混在する場合は Null を返します。

WrapText プロパティ（折り返して全体を表示する設定）が、True になっている場合は、ShrinkToFit プロパティを True にしても WrapText プロパティの方が優先されます。

ShrinkToFit プロパティ使用例

サンプルVBAソース

　
Sub Sample_ShrinkToFit()


    Range("B2").Value = "あいうえおかきくけこ"
    Range("B7").Value = "たちつてとなにぬねの"

    'セル「B2」の「ShrinkToFit プロパティ」を「True」にする
    Range("B2").ShrinkToFit = True

    'セル「B8」の「ShrinkToFit プロパティ」と
    '「WrapText プロパティ」の両方を「True」にする
    Range("B7").ShrinkToFit = True
    Range("B7").WrapText = True


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

　

Sub Sample_ShrinkToFit()

Range("B2").Value = "あいうえおかきくけこ"

Range("B7").Value = "たちつてとなにぬねの"

'セル「B2」の「ShrinkToFit プロパティ」を「True」にする

Range("B2").ShrinkToFit = True

'セル「B8」の「ShrinkToFit プロパティ」と

'「WrapText プロパティ」の両方を「True」にする

Range("B7").ShrinkToFit = True

Range("B7").WrapText = True

End Sub

　

実行結果

- セルの操作 Range オブジェクト, ShrinkToFit プロパティ, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セルの特定の要素のみをペーストする（PasteSpecial メソッド）

PasteSpecial メソッド PasteSpecial メソッドは、Cop …

: セル内の編集を禁止する（EditDirectlyInCell プロパティ）

EditDirectlyInCell プロパティエクセルでは、セルをダブルクリ …

: 使用中のセル範囲を取得（CurrentRegion プロパティ）

CurrentRegion プロパティ CurrentRegion プロパティは …

: 並べ替え（Sort メソッド）

Sort メソッド任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条 …

: 入力規則（入力時メッセージの設定）Validation オブジェクト

入力規則の入力時メッセージを表示する Validation.ShowInput …

: 入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ

IMEMode プロパティ Validation.IMEMode プロパティを …

: VBA で、ワークシート関数を使用（WorksheetFunction プロパティ）

VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …

: 入力規則（他セルや数式を利用して許容値を設定）Validation オブジェクト

他のセルや数式を利用して許容値を設定する入力規則（その5）での設定を、マクロ …

: 次の検索（FindNext メソッド,FindPrevious メソッド）

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

: 配列数式を取得または設定する（FormulaArray プロパティ）

FormulaArray プロパティ FormulaArray プロパティは、対 …

PREV: 文字列をセル幅で折り返す（WrapText プロパティ）
NEXT: 罫線の設定（Borders プロパティ）