文字列を縮小して全体を表示(ShrinkToFit プロパティ)
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ソース
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 |
実行結果
関連記事
-
-
セルの値を置換・書式設定(Replace メソッド,ReplaceFormat プロパティ)
セルの値の置換と書式設定 検索条件に一致するセルの書式を設定するには、まず、Ap …
-
-
対象のセルを参照している全てのセルを取得(Dependents プロパティ)
Dependents プロパティ Dependents プロパティは、対象のセル …
-
-
任意のセルを含む行または列全体を参照(EntireRow プロパティ,EntireColumn プロパティ)
EntireRow プロパティ・EntireColumn プロパティ Entir …
-
-
文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)
HorizontalAlignment プロパティ HorizontalAlig …
-
-
オートフィルタの設定と解除(AutoFilter メソッド)
AutoFilter メソッド オートフィルタを設定する場合、AutoFilte …
-
-
グラデーション(Pattern プロパティ・Gradient プロパティ)
セルの背景ににグラデーションを設定する Pattern プロパティを使用するとセ …
-
-
入力規則(入力時メッセージの設定)Validation オブジェクト
入力規則の入力時メッセージを表示する Validation.ShowInput …
-
-
別シートのセルを選択(Goto メソッド / PreviousSelections プロパティ)
Goto メソッド 次の例のように、1 行で、Activate メソッド や S …
-
-
使用中のセル範囲を取得(UsedRange プロパティ)
UsedRange プロパティ UsedRange プロパティは、指定したワーク …
-
-
オートフィルタ(日付による抽出)AutoFilter メソッド
日付で、抽出する(AutoFilter メソッド) 【書式】 object.Au …