Home » Access VBA » Access VBAでExcelの折り返して全体を表示するをOnにする

Access VBAでExcelの折り返して全体を表示するをOnにする

動作検証バージョン：Windows 11 Home + 64bit Access & Excel バージョン 2504（ビルド18730.20142クイック実行）

「access vba excel 折り返して全体を表示する」
といった検索キーワードでアクセスがありました。

Access VBAで、Excelの［折り返して全体を表示する］設定を行うには

どのようなコードを書けばいいのかを調べていた方による検索でしょう。

［スポンサードリンク］

折り返して全体を表示するをOnにするサンプルプロシージャ

Excelで、文字列が隣のセルにあふれて表示されているセルをアクティブにしておいてから、

以下のSubプロシージャを実行してください。

Sub Excelの折り返して全体を表示するを設定する()
　With GetObject(Class:="Excel.Application")
　　.ActiveCell.WrapText = True
　End With
End Sub

［折り返して全体を表示する］設定が行われて、セル内に文字列が表示されるようになります。

Excel VBAの場合、

ActiveCell.WrapText = True

を実行するとアクティブセルの［折り返して全体を表示する］設定が行われます。

Rangeオブジェクトに用意されているWrapTextプロパティに

論理値Trueを指定することで［折り返して全体を表示する］がOnの状態になります。

これをAccess VBAから行うために、VBAのGetObject関数で

　With GetObject(Class:="Excel.Application")

起動済Excel.Applicationオブジェクトへの参照を取得しておいてから、「ActiveCell.WrapText = True」を実行しています。

　　.ActiveCell.WrapText = True

［スポンサードリンク］

Home » Access VBA » Access VBAでExcelの折り返して全体を表示するをOnにする

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

日経BP社から出版されたExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBA経験者向けに、Word VBAの基本をキンドル本にしました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

「Access VBA」の記事一覧