在 Excel 中設定多個工作表的頁面設定屬性

發行項
03/13/2024
適用於:

Microsoft Excel

摘要

在 Microsoft Excel 中，每個工作表都會個別設定頁面設定屬性，例如邊界、工作表方向和列印標題。本文說明三種方法，可用來全域設定其中一些屬性。

其他相關資訊

若要設定 Excel 工作表群組的頁面設定屬性，請使用下列其中一種方法。

方法 1：變更工作表群組

若要將頁面設定屬性套用至活頁簿中的工作表群組，請遵循下列步驟：

按 CTRL，然後按您想要影響之活頁簿中的每個工作表索引標籤。
在 [檔案] 功能表上，按一下 [版面設定]。

注意事項

在 Excel 2007 中，按兩下 [版面設定] 索引標籤中 [頁面設定] 群組中的對話框啟動器。
在 [頁面設定] 對話框中進行您想要的變更，然後按兩下 [確定]。

您選取的所有工作表都有相同的頁面設定屬性。

方法 2：使用宏

Microsoft 提供的程式設計範例僅供說明之用，並不具任何明示或暗示的責任擔保。這包括 (但不限於) 任何目的之適售性及適用性的暗示責任擔保。本文假設您熟悉示範的程式設計語言，也熟悉用以建立和偵錯程序的工具。 Microsoft 支援工程師可以協助說明特定程式的功能，但不會修改這些範例來提供額外的功能或建構程式，以符合您的特定需求。您可以在使用中活頁簿和任何其他開啟的活頁簿中，以程式設計方式變更頁面設定屬性。

注意事項

這些宏會使用PageSetup物件的 Orientation 屬性。您可以使用其他 PageSetup 屬性來修改其他頁面設定屬性，例如 LeftMargin、RightMargin 等等。

若要以程式設計方式變更使用中活頁簿中所有工作表的頁面方向，請使用上一個範例中的步驟：

啟動 Excel。
在三個工作表中輸入一些數據。
按 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 中，按兩下 [版面設定] 索引標籤中 [頁面設定] 群組中的對話框啟動器。
在 [頁面] 索引標籤的 [方向] 下，按兩下 [橫向]，然後按兩下 [確定]。
在 [工具] 功能表上，指向 [巨集]，然後按一下 [巨集]。
注意事項

在 Excel 2007 中，使用下列步驟：
1. 如果 [開發人員] 索引標籤無法使用，請使用下列步驟： > 1。按兩下 [Microsoft Office 按鈕]，然後按兩下 [Excel 選項]。 > 1. 在 [熱門] 類別中，按兩下以選取 [使用Excel的頂端選項] 下方功能區複選框中的 [顯示開發人員] 索引卷標，然後按兩下 [確定]。
2. 在 [開發人員] 索引標籤上，按兩下 [程序代碼] 群組中的 [宏] 按鈕。
按兩下 [SetAttributes]，然後按兩下[執行]。

這三張工作表都會在列印預覽中顯示橫向。若要根據另一個開啟活頁簿的頁面設定屬性，以程序設計方式將頁面設定屬性變更為使用中活頁簿中的所有頁面，請使用下列範例中的步驟：

注意事項

這是下列範例的接續。

在 [檔案] 功能表上，按兩下 [新增]。

注意事項

在 Excel 2007 中，按兩下 [Microsoft Office 按鈕]，然後按兩下 [新增]。
按兩下 [活頁簿]，然後按兩下 [確定]。

注意事項

在 Excel 2003 中，按兩下 [新增活頁簿] 工作窗格中 [新增] 底下的 [空白活頁簿]。在 Excel 2007 的 [範本] 下，確定已選取 [空白] 和 [最近] ，然後在右窗格的 [空白和最近] 下按兩下 [空白活頁簿]。
在新活頁簿中的所有工作表中輸入數據。
按 ALT+F11 以啟動 Visual Basic 編輯器。
選取 [專案總管] 中的第一個活頁簿，然後按兩下 [Modules] 資料夾下的 [Module1]。

取代為 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 等) 。

在 Excel 中設定多個工作表的頁面設定屬性

摘要

其他相關資訊

方法 1：變更工作表群組

方法 2：使用宏

意見反應

意見反應

其他資源