ヘッダー/フッターにパスアドレスの追加
Excel97およびExcel2000の使用時に印刷中にヘッダーまたはフッターにパスを追加するには、ブックから印刷する各シートにパスなどの情報が自動的に表示されるイベント(マクロコード行)を追加します。
ヘッダーまたはフッターにパスを追加するには:
{空} 1。 Alt + F11を押して、VBE(Visual Basic Editor)を開きます。
2.プロジェクトエクスプローラーで、ThisWorkbookモジュールをダブルクリックします。
-
[オブジェクト]ドロップダウンリストから[ワークブック]を選択し、[プロシージャ]ドロップダウンリストから[BeforePrint]を選択します(これらの2つのドロップダウンリストはモジュールシートの上部にあります)。
-
Eventプロシージャで、自動生成された開始ステートメントと終了ステートメントの間に、次のコードを入力します。
ActiveSheet.PageSetup.LeftFooter = “&A&F&T&D”&ActiveWorkbook.Path文字A、F、T、Dは、それぞれシート名、ワークブック名、時刻、日付です。
Excel2002およびExcel2003を使用する場合、コード行は短くなります(Zはパスアドレスを表します):
LeftFooter = “&A&F&T&D&Z”