Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

17 de abril de 2013

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


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

  TagsExcel, VBA, header, footer, cabeçalho, rodapé, 


Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine