sábado, 8 de setembro de 2012

Formatando Cabeçalhos


Pessoal, 

Segue mais uma macro para facilitar o dia-a-dia.
No trabalho, tenho de montar apresentações diariamente, formatando muitas tabelas.
Com esta macro, padronizei os cabeçalhos que uso, para ganhar tempo. Basta selecionar a área da linha com o cabeçalho e aplicar a macro (a cor pode ser alterada e a disposição das bordas, também... O código está comentado):


Sub Formata_Cabeçalho()
'
' Macro para formatar cabeçalhos automaticamente
'

    With Selection.Font 'Formata fonte na cor branca/negrito
        .FontStyle = "Negrito"
        .ThemeColor = xlThemeColorDark1
    End With
    
    With Selection.Borders(xlInsideVertical) 'Borda para separação das colunas
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .Weight = xlThin
    End With
    
    'Retira outras bordas
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    
    'Preenchimento do cabeçalho (cor)
    With Selection.Interior
        .Pattern = xlSolid
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = -0.499984740745262
    End With
    
    'Alinhamento do cabeçalho (centralizado/quebra de linha)
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
    
End Sub

Segue imagem de como ficaria o cabeçalho:


Até a próxima!

2 comentários:

  1. Parabéns pelo Blog meu amor! Sempre torço muito por você e para que você conquiste todos os seus objetivos! Beijos, Sua fã número 1, Jaque

    ResponderExcluir
  2. Casinos near me - Lucky Club
    Lucky Club. The Lucky Club is one of the biggest names in online gambling. The club luckyclub.live was founded in 2015 and has operated since 2015. Casinos. There is a

    ResponderExcluir