takayukisの日記 このページをアンテナに追加 RSSフィード

2017.09.02(土)

[]ヘッダフッタを消去

Sub ヘッダフッタを消去()
    Dim ブック As Workbook
    Set ブック = ActiveWorkbook
    Dim シート As Worksheet
    For Each シート In ブック.Worksheets
        シート.PageSetup.LeftHeader = ""
        シート.PageSetup.CenterHeader = ""
        シート.PageSetup.RightHeader = ""
        シート.PageSetup.LeftFooter = ""
        シート.PageSetup.CenterFooter = ""
        シート.PageSetup.RightFooter = ""
    Next
End Sub

よく、どこかの会社のCopyrightが設定されているファイルがありますが、それを解除します。

自社のCopyrightに書き換える時も、これで一括設定できます。

はてなユーザーのみコメントできます。はてなへログインもしくは新規登録をおこなってください。

トラックバック - http://d.hatena.ne.jp/takayukis/20170902/1504346158