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

関連記事

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

Range プロパティ任意のセルにアクセスするには Range プロパティを使 …

: 文字列の横位置を取得・設定する（HorizontalAlignment プロパティ）

HorizontalAlignment プロパティ HorizontalAlig …

: フリガナの設定（Characters プロパティ,PhoneticCharacters メソッド）

Characters プロパティ Characters プロパティは、文字範囲を …

: 外枠罫線の設定（BorderAround メソッド）

外枠罫線の設定罫線の設定には、Borders プロパティを使用しますが、範囲内 …

: A1 形式と R1C1 形式を変換、相対参照と絶対参照を変換（ConvertFormula)

ConvertFormula メソッド数式で参照しているアドレスの相対参照と絶 …

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

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

: 並べ替え（Sort オブジェクト, SortFields コレクション）

Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …

: セルの行番号または列番号を取得（Row プロパティ,Column プロパティ）

Row プロパティ・Column プロパティ Row プロパティは、指定したセル …

: 連続データを入力する（AutoFill メソッド）

AutoFill メソッド Excel で、連続するデータを入力する「オートフィ …

: オートフィルタ（日付による抽出）AutoFilter メソッド

日付で、抽出する（AutoFilter メソッド）【書式】 object.Au …

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