Excel で複数のシートのページ設定属性を設定する
概要
Microsoft Excel では、余白、シートの向き、印刷タイトルなどのページ設定属性がワークシートごとに個別に設定されます。 この記事では、これらの属性の一部をグローバルに設定するために使用できる 3 つの方法について説明します。
詳細
Excel ワークシートのグループのページ設定属性を設定するには、次のいずれかの方法を使用します。
方法 1: ワークシートのグループを変更する
ブック内のワークシートのグループにページ設定属性を適用するには、次の手順に従います。
Ctrl キーを押し、影響を与えるブックの各ワークシート タブをクリックします。
[ ファイル] メニューの [ ページ設定] をクリックします。
注:
Excel 2007 で、[ページ レイアウト] タブの [ページ設定] グループでダイアログ ボックス起動ツールをクリックします。
[ページ設定] ダイアログ ボックスで必要な変更を行い、[OK] をクリックします。
選択したすべてのワークシートには、同じページ設定属性があります。
方法 2: マクロを使用する
Microsoft は、例示のみを目的としてプログラミング例を提供しており、明示または黙示にかかわらず、いかなる責任も負わないものとします。 これには、市販性または特定の目的との適合性についての黙示の保証も含まれますが、これに限定はされません。 この記事は、説明されているプログラミング言語、手順を作成およびデバッグするために使用されているツールに読者が精通していることを前提にしています。 Microsoft サポート エンジニアは、特定のプロシージャの機能を説明するのに役立ちますが、これらの例を変更して、特定の要件を満たすために追加の機能を提供したり、プロシージャを構築したりすることはできません。アクティブなブックや他の開いているブックのページ設定属性をプログラムで変更できます。
注:
これらのマクロでは、PageSetup オブジェクトの Orientation プロパティを使用します。 LeftMargin、RightMargin などの他の PageSetup プロパティを使用して、他のページ設定属性を変更できます。
作業中のブック内のすべてのシートのページの向きをプログラムで変更するには、前の例の手順を使用します。
Excel を起動します。
3 つのワークシートにデータを入力します。
Alt キーを押しながら F11 キーを押して Visual Basic エディターを開始します。
[挿入] メニューの [モジュール] をクリックします。
モジュール シートに次のコードを入力します。
Sub SetAttributes() For Each xWorksheet In ActiveWorkbook.Worksheets xWorksheet.PageSetup.Orientation = _ Worksheets("Sheet1").PageSetup.Orientation Next xWorksheet End Sub
Alt キーを押しながら F11 キーを押して Excel に切り替えます。
[シート 1] を選択します。
[ ファイル] メニューの [ ページ設定] をクリックします。
注:
Excel 2007 で、[ページ レイアウト] タブの [ページ設定] グループでダイアログ ボックス起動ツールをクリックします。
[ページ] タブの [向き] で、[横] をクリックし、[OK] をクリックします。
[ツール] メニューの [マクロ] をポイントし、[マクロ] をクリックします。
注:
Excel 2007 では、次の手順を使用します。
- [開発者] タブが使用できない場合は、次の手順 > 1 を使用します。 [Microsoft Office] ボタンをクリックし、[Excel のオプション] をクリックします。 > 1. [一般的な] カテゴリで、[リボン チェック] ボックスの [Excel を操作するためのトップ オプション] の下にある [開発者の表示] タブをクリックして選択し、[OK] をクリックします。
- [開発] タブで、[コード] グループの [マクロ] ボタンをクリックします。
[SetAttributes] をクリックし、[実行] をクリックします。
3 つのワークシートはすべて、印刷プレビューで横向きを表示します。 別の開いているブックのページ設定属性に基づいて、アクティブなブックのすべてのページにページ設定属性をプログラムで変更するには、次の例の手順を使用します。
注:
これは、次の例の続きです。
[ファイル] メニューの [新規作成] をクリックします。
注:
Excel 2007 で、[Microsoft Office ボタン] をクリックし、[新規] をクリックします。
[ブック] をクリックし、[OK] をクリックします。
注:
Excel 2003 の [新しいブック] 作業ウィンドウの [新規作成] の下にある [空白のブック] をクリックします。 Excel 2007 の [テンプレート] で、[空白と最近使ったブック] が選択されていることを確認し、右側のウィンドウの [空白と最近使ったブック] の下にある [空のブック] をダブルクリックします。
新しいブックのすべてのワークシートにデータを入力します。
Alt キーを押しながら F11 キーを押して Visual Basic エディターを起動します。
Project エクスプローラーで最初のブックを選択し、[モジュール] フォルダーの [モジュール 1] をクリックします。
を module1 シートに次のコードに置き換えます。
Sub SetWorkbookAttributes() For Each xWorksheet In ActiveWorkbook.Worksheets xWorksheet.PageSetup.Orientation = _ ThisWorkbook.Worksheets("Sheet1").PageSetup.Orientation Next xWorksheet End Sub
Alt キーを押しながら F11 キーを押して Excel に戻ります。
[ツール] メニューの [マクロ] をポイントし、[マクロ] をクリックします。
注:
Excel 2007 の [開発] タブで、[コード] グループの [マクロ] をクリックします。
[Book1] をクリックします。SetWorkbookAttributes、 [実行] をクリックします。
ページ設定の向きは、最初のブックのシート 1 と同じです。
ワークシートの追加のページ設定プロパティを変更する場合は、For Each..内に追加の行を追加できます。各 Sub プロシージャの次のステートメント。 この行は、プロパティ (Orientation) を必要に応じて変更できる点 (CenterFooter、PaperSize など) を除き、ここで指定した行の例と同じである必要があります。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示