Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por PedroReis 12 Fev 2019 às 18:10
Membro Novato
Mensagens: 6
Reputação: 0
#41148
Olá malta,

Estou a criar uma folha e queria introduzir imagens nos cabeçalhos e rodapés mas usando VBA.
Encontrei este código que permite proteger o cabeçalho e rodapé mas queria inserir imagem em vez de texto em alguns deles.

Aqui fica o código. Podem ajudar-me a inserir as imagens também (mas usando esta proteção)?
Já tentei várias hipóteses mas… não consigo...

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call ProtectHF
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ProtectHF
End Sub

Private Sub Workbook_Open()
Call ProtectHF
End Sub

Private Sub ProtectHF()
'Updateby Extendoffice 20161027
Application.ScreenUpdating = False
Dim strHeaderTextL As String
strHeaderTextL = " Not for copy "
Dim strHeaderTextC As String
strHeaderTextC = " Created by ... "
Dim strHeaderTextR As String
strHeaderTextR = " Not for copy "
Dim strFooterTextL As String
strFooterTextL = " Not for copy "
Dim strFooterTextC As String
strFooterTextC = " Not for copy "
Dim strFooterTextR As String
strFooterTextR = " Not For Copy "
ThisWorkbook.ActiveSheet.PageSetup.RightHeader = "&B&20" & strHeaderTextR & ""
ThisWorkbook.ActiveSheet.PageSetup.RightFooter = "&B&20" & strFooterTextR & ""
ThisWorkbook.ActiveSheet.PageSetup.CenterHeader = "&B&20" & strHeaderTextC & ""
ThisWorkbook.ActiveSheet.PageSetup.CenterFooter = "&B&20" & strFooterTextC & ""
ThisWorkbook.ActiveSheet.PageSetup.LeftHeader = "&B&20" & strHeaderTextL & ""
ThisWorkbook.ActiveSheet.PageSetup.LeftFooter = "&B&20" & strFooterTextL & ""
Application.ScreenUpdating = True
End Sub
Por GroverL 12 Fev 2019 às 20:46
Membro 1 Estrela
Mensagens: 36
Reputação: 8
#41154
Boa noite Pedro.

Essa imagem que você quer adicionar no cabeçalho e no rodapé, deve aparecer apenas quando você for enviar para impressão? Pode ser for, acredito que não precise do VBA, é possível configurar isso nas propriedades de impressão.

Att.
Por PedroReis 13 Fev 2019 às 15:09
Membro Novato
Mensagens: 6
Reputação: 0
#41182
Olá GroverL,
A ideia é o utilizador não poder inserir nada no cabeçalho e rodapé. Apenas o programador o pode fazer. É apenas uma medida de proteção do ficheiro. Por isso acho que precisava disso mesmo. ..
Por osvaldomp 22 Fev 2019 às 16:42
Membro 5 Estrelas
Mensagens: 1310
Reputação: 649
#41500