フッター

フッターとして説明するが、ヘッダーも基本同じ。
Excelメニューからフッターに時刻やらファイル名やらを指定できるし、シートを複数選択して操作もできるのであまりVBAの出番はないかも知れない。
ただ他の案件で既に自動化していてこれもついでに、とかいうこともあるだろう。
また、例えば特定セルの値を指定することはできないし、ファイル名の一部を、とかもできないので、必要となることもある。

中央フッターの場合は下のような感じになる。
Dim w As Worksheet
Set w = ThisWorkbook.Worksheets(1)
w.PageSetup.CenterFooter = "フッターの文字列"
すべてのワークシートを対象とするなら下のような感じ。
Dim w As Worksheet
For Each w In ThisWorkbook.Worksheets
    w.PageSetup.CenterFooter = "フッターの文字列"
Next
右はRightFooter、左はLeftFooter
ヘッダーならRightHeader,CenterHeader,LeftHeaderとなる。

時刻やらファイル名の指定は以下の文字にすれば良い。
&T時刻
&Pページ番号
&N総ページ数
&Zパス名
&Fファイル名
&Aシート名
&G
図というのは画像データのこと。以下のプロパティに画像ファイル名をパス付きで指定する。
.PageSetup.CenterFooterPicture.Filename
-