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

全シートの印刷範囲をクリア・解除する-.PrintArea = ""

対象:Excel2003, Excel2007, Excel2010, Excel2013

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

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

[スポンサードリンク]

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

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


Sub 全ワークシートの印刷範囲をクリアする()
 Dim sh As Worksheet

 For Each sh In Worksheets
  sh.PageSetup.PrintArea = ""
 Next ws
End Sub

サンプルマクロの解説

マクロ記録を行ってみると、
  ActiveSheet.PageSetup.PrintArea = ""
というコードができます。

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

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

マクロ記録でできる
  ActiveSheet.PageSetup.PrintArea = ""
というコードを、すべてのワークシートに対してループ処理で行うようにすれば、すべてのワークシートの印刷範囲を解除できます。

PageSetupオブジェクトは、WorksheetにもChartにもありますが、PrintAreaプロパティはChartオブジェクトのPageSetupオブジェクトにはありませんから、Worksheetオブジェクトにだけループ処理を、
  For Each sh In Worksheets
行っています。

[スポンサードリンク]

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

TrackBack:1

TrackBack URL
Excel 2003で印刷範囲を設定する from インストラクターのネタ帳
Excel(エクセル)2003で印刷範囲を設定するには、印刷範囲と指定したいセル範囲を選択しておいてから、メニューのファイル-印刷範囲-印刷範囲の設定をク...

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

Copyright © インストラクターのネタ帳 All Rights Reserved.

.