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

関連記事

: セルに値を設定する・セルの値を参照する（Value2 プロパティ）

Value2 プロパティ Value プロパティとの違いは、Value2 プロパ …

: コメントの設定（Comments, Comment, AddComment, ClearComment）

コメントの設定セルにコメントを新規に挿入するには、AddComment メソッ …

: オートフィルタ（日付・時刻のグループ化）AutoFilter メソッド

グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …

: 列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

列番号を取得するセル番地（「A1」や「B3」）や列名（「A」「B」「C」&#8 …

: 罫線の設定（Borders プロパティ）

罫線の設定罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …

: セルを参照する（Cells プロパティ）

Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を …

: 書式で検索（Find メソッド,FindFormat プロパティ）

書式で検索書式を条件にセルを検索する場合、まず、その書式条件を CellFor …

: ハイパーリンク（Hyperlink オブジェクト）

Hyperlink オブジェクト Hyperlinks コレクションのメンバー …

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

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

: 入力規則（リストで制限する）Validation.Add メソッド

ドロップダウンリストで入力値を制限 Validation.Add メソッド（また …

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