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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セル範囲内を検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: オートフィルタ（平均より上・平均より下）AutoFilter メソッド

平均値よりも大きい（小さい）値のレコードを抽出 AutoFilter メソッドで …

: セル・セル範囲に名前を定義・削除（Name プロパティ・Names コレクション）

セル・セル範囲に名前を定義（Name プロパティ） Range オブジェクトのN …

: 数式を非表示にする（FormulaHidden プロパティ）

FormulaHidden プロパティ数式が入力されたセルを選択するとその数式 …

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

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

: セル範囲を結合・結合を解除（MergeCells プロパティ）

MergeCells プロパティ MergeCells プロパティは、指定したセ …

: 重複するデータを削除（RemoveDuplicates メソッド）

RemoveDuplicates メソッド指定したセル範囲から重複データを含む …

: 直前のセル・直後のセルを参照する（Previous プロパティ・Next プロパティ）

Previous プロパティ・Next プロパティ Previous プロパティ …

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

無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …

: 文字列の一部の書式を変更（Characters プロパティ）

文字列の一部を参照（Characters プロパティ） Characters プ …

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