Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAで全シートの印刷範囲をクリア・解除・削除する

VBAで全シートの印刷範囲をクリア・解除・削除する

対象：Excel2003, Excel2007, Excel2010, Excel2013

「excel vba 印刷範囲クリア」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excelで印刷範囲をクリア・解除・削除するVBAのコードを探している方による検索です。

［スポンサードリンク］

全ワークシートの印刷範囲を解除するサンプルマクロ

ここでは、アクティブなブックの、すべてのワークシートの印刷範囲をクリアするマクロをご紹介しておきましょう。

Sub 全ワークシートの印刷範囲をクリアする()
　Dim sht As Worksheet
　For Each sht In Worksheets
　　sht.PageSetup.PrintArea = ""
　Next
End Sub

マクロ記録を行ってみると、

ActiveSheet.PageSetup.PrintArea = ""

というコードが自動的に作られます。

PageSetupオブジェクトのPrintAreaプロパティに「""」（空白文字列）を設定するコードです。

アクティブなワークシートの印刷範囲をクリアするには、この1行だけでOKです。
マクロ記録で作られる

ActiveSheet.PageSetup.PrintArea = ""

というコードを、すべてのワークシートに対してループ処理で行うようにすれば、すべてのワークシートの印刷範囲を解除できます。

PageSetupオブジェクトは、WorksheetにもChartにもありますが、PrintAreaプロパティはChartオブジェクトのPageSetupオブジェクトにはありませんから、Worksheetオブジェクトにだけループ処理を、

　For Each sht In Worksheets

行い、For Each～Nextループ内でPageSetup.PrintAreaプロパティに空白文字列を設定しています。

　　sht.PageSetup.PrintArea = ""

最終更新日時：2025-04-22 17:01

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAで全シートの印刷範囲をクリア・解除・削除する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

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

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

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

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

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

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

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

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

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

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

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

「ページ設定・PageSetup」の記事一覧