Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Formatar automatica...
 
Notifications
Clear all

Formatar automaticamente a fonte de cabeçalho

 
2024 - VBA & Macros
4 Posts
1 Usuários
0 Reactions
1,468 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde pessoal!

Preciso de uma macro que formate a fonte de um cabeçalho automaticamente antes de imprimir.

Exemplo:
1ª Linha: Nome da Empresa (Fonte Arial, tamanho 16, negrito)
2ª Linha: Telefone (Fonte Arial, tamanho 12, negrito)
3ª Linha: Aqui é uma variável, no caso assume o valor de uma célula determinada que possui uma fórmula (fonte Arial, tamanho 12, negrito)

Colocar as informação de forma automática eu consigo, o que não consigo é alterar as fontes automaticamente, não achei a propriedade...

Alguém pode me ajudar?

Atenciosamente.
Adriano Prachthäuser

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/01/2011 10:56 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja se ajuda:

Headers And Footers
http://www.cpearson.com/excel/headfoot.htm

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/01/2011 9:02 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado!

:D Mais uma vez obrigado Mauro!!
Eu consegui resolver o meu problema com "Imprimir Títulos", mas achei estranho não existir um forma de formatar o cabeçalho através do VBA...

Valeu!!

Atenciosamente,
Adriano Prachthäuser

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/01/2011 7:12 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro,

Achei um problema:

' Só estou conseguindo modificar o tamanho, se é negrito, itálico e/ou sublinhado:
Worksheets("Plan4").PageSetup.LeftHeader = "&10&I" & Range("A1")

' A tentativa de modificar a fonte falha:
Worksheets("Plan4").PageSetup.CenterHeader = "&""Curlz MT" & Range("A1")

' Usando um texto entre aspas funciona:
Worksheets("Plan4").PageSetup.RightHeader = "&""Curlz MT""TEXTO"

Se puder me ajudar, agradeço!

Atenciosamente,
Adriano Prachthäuser

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/01/2011 8:21 am
Forum Jump:
  Tópico Anterior
Próximo Tópico