VBA Excel - Inserindo Cabeçalhos e Rodapés - Insert headers and footers using VBA

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Já pensou a respeito de como pode ser útil colocarmos cabeçalhos e rodapés personalizados nas planilhas que entregamos para os nossos chefes, departamentos clientes, ou mesmo em Dashboards, Scorecards, e Gráficos que enviamos por e-mail.

Seria ainda melhor se pudéssemos automatizar a colocação destes com contadores de página, data e horário, logomarca da empresa e em alguns casos com títulos e enunciados analíticos que reflitam o conteúdo daquilo que está sendo entregue.

  Sub InsHeadFoot()

' Insira o mesmo cabeçalho/rodapé em todas as abas

Dim ws As Worksheet

      Let Application.ScreenUpdating = False

    For Each ws In ActiveWorkbook.Worksheets

          Let Application.StatusBar = "Alterando Cabeçalho/Rodapé em " & ws.Name

        With ws.PageSetup

              Let .LeftHeader = "Nome da Compania"

              Let .CenterHeader = "Pág. &P de &N"

              Let .RightHeader = "Impresso em &D &T"

              Let .LeftFooter = "Path : " & ActiveWorkbook.Path

            Let .CenterFooter = "Nome da planilha &F"

            Let .RightFooter = "Aba &A"

        End With

      Next ws

      Set ws = Nothing

      Let Application.StatusBar = False

End Sub

  Tags: Excel, VBA, header, footer, cabeçalho, rodapé,