如何為多個工作表設定版面設定屬性

文章翻譯 文章翻譯
文章編號: 213257 - 檢視此文章適用的產品。
如需本文的 Microsoft Excel 97 (含) 以前版本,以及 Microsoft Excel 98 Macintosh Edition (含) 以前版本,請參閱 154663
全部展開 | 全部摺疊

在此頁中

結論

在 Microsoft Excel 中,會為每一個工作表個別設定版面設定屬性,例如邊界、工作表頁面方向及列印標題。本文將告訴您可以用來全域性設定其中一些屬性的三種方法。

其他相關資訊

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

方法 1:變更工作表群組

若要將版面設定屬性套用到活頁簿中的工作表群組,請依照下列步驟執行:
  1. 按 CTRL,然後按一下活頁簿中您要套用變更的每一個工作表索引標籤。
  2. [檔案] 功能表上,按一下 [版面設定]

    請注意 在 Excel 2007 中,按一下 [版面配置] 索引標籤上 [版面設定] 群組中的對話方塊啟動器。
  3. [版面設定] 對話方塊中進行您想要的變更,然後按一下 [確定]

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

方法 2:使用巨集

Microsoft 僅提供示範性的程式設計範例,不做任何明示或默示的保證。其中包括 (但不限於) 其適售性與適合某特定用途之默示擔保。本文將假設您已相當熟悉示範所使用的程式設計語言,以及用於建立和偵錯程序的工具。Microsoft 技術支援工程師可以協助說明特定程序的功能,但不會修改這些範例以提供附加功能或建構程序來滿足您的特定需求。 您可以透過程式設計方式,變更使用中活頁簿及任何其他開啟的活頁簿中的版面設定屬性。
請注意:這些巨集使用 PageSetup 物件的 Orientation 屬性。您可以使用其他 PageSetup 屬性 (Property) 來修改其他版面設定屬性 (Attribute),例如 LeftMargin、RightMargin 等等。

若要透過程式設計方式,變更使用中活頁簿之所有工作表的頁面方向,請使用上述範例中的步驟:
  1. 啟動 Excel。
  2. 在三個工作表中輸入一些資料。
  3. 按 ALT+F11 啟動 Visual Basic 編輯器。
  4. [插入] 功能表上,按一下 [模組]
  5. 在模組工作表中輸入下列程式碼:
    Sub SetAttributes()
       For Each xWorksheet In ActiveWorkbook.Worksheets
          xWorksheet.PageSetup.Orientation = _
             Worksheets("Sheet1").PageSetup.Orientation
       Next xWorksheet
    End Sub
    						
  6. 按 ALT+F11 切換至 Excel。
  7. 選取 Sheet1。
  8. [檔案] 功能表上,按一下 [版面設定]

    請注意 在 Excel 2007 中,按一下 [版面配置] 索引標籤上 [版面設定] 群組中的對話方塊啟動器。
  9. [頁面] 索引標籤的 [方向] 下,按一下 [橫向],然後按一下 [確定]
  10. [工具] 功能表上,指向 [巨集],然後按一下 [巨集]

    請注意 在 Excel 2007 中,按一下 [版面配置] 索引標籤上 [版面設定] 群組中的對話方塊啟動器。
  11. 按一下 [SetAttributes],然後按一下 [執行]

    所有這三個工作表在 [預覽列印] 中都會顯示橫向。
若要透過程式設計方式,並根據另一個開啟之活頁簿的版面設定屬性,來變更使用中活頁簿之所有頁面的版面設定屬性,請使用下列範例中的步驟:

請注意:這是下列範例的延續。
  1. [檔案] 功能表上,按一下 [開新檔案]

    請注意 在 Excel 2007 中,請按一下 [Microsoft Office 按鈕],然後按一下 [開新檔案]
  2. 按一下 [活頁簿],然後按一下 [確定]

    請注意 在 Excel 2003 中,按一下 [新增活頁簿] 工作窗格中 [開新檔案] 下的 [空白活頁簿]。在 Excel 2007 中,按一下 [Microsoft Office 按鈕],然後按一下 [開新檔案],在 [範本] 底下,確定已選取 [空白及最近使用的檔案],然後在右窗格的 [空白及最近使用的檔案] 底下,按一下 [空白活頁簿]
  3. 在新活頁簿的所有工作表中輸入資料。
  4. 按 ALT+F11 啟動 Visual Basic 編輯器。
  5. 在專案總管中選取第一個活頁簿,然後按一下 [模組] 資料夾底下的 [Module1]
  6. 以下列程式碼取代 module1 工作表:
    Sub SetWorkbookAttributes()
       For Each xWorksheet In ActiveWorkbook.Worksheets
          xWorksheet.PageSetup.Orientation = _
             ThisWorkbook.Worksheets("Sheet1").PageSetup.Orientation
       Next xWorksheet
    End Sub
    						
  7. 按 ALT+F11 切換回到 Excel。
  8. [工具] 功能表上,指向 [巨集],然後按一下 [巨集]

    請注意 在 Excel 2007 中,按一下 [版面配置] 索引標籤上 [版面設定] 群組中的對話方塊啟動器。
  9. 按一下 [Book1!SetWorkbookAttributes],然後按一下 [執行]

    版面設定方向與第一個活頁簿的 sheet 1 相同。
如果您想要變更工作表的其他版面設定屬性,可在每一個子程序的 For Each...Next 陳述式內新增其他行。這幾行應該與此處提供的範例行一樣,不過可以在適當時候變更屬性 (Orientation) 的設定 (CenterFooter、PaperSize...等等)。

屬性

文章編號: 213257 - 上次校閱: 2007年4月6日 - 版次: 5.0
這篇文章中的資訊適用於:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
關鍵字:?
kbdtacode kbhowto kbprogramming kbualink97 KB213257
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com