Do Básico ao Avançado
Home  Tutoriais  Artigos  Contato

Inserir imagem no cabeçalho com VBA

Neste tutorial mostrarei como Inserir imagem no cabeçalho usando VBA. Acompanhe a criação do código VBA que automatizará a inserção de imagem (logotipo da empresa) no Cabeçalho de um documento.

Tudo que precisamos fazer é adicionar o caminho do arquivo para a imagem que desejamos inserir no cabeçalho.

Vamos a um exemplo prático:

No documento, mostrado na imagem abaixo, iremos adicionar uma imagem em seu cabeçalho.

Como inserir uma imagem no cabeçalho

Primeiramente vamos criar a macro (código VBA) que irá adicionar a imagem ao cabeçalho do documento.

Na Guia Desenvolvedor, no Grupo Código clique em Visual Basic.

Visual Basic

No ambiente de desenvolvimento VBA clique no menu Inserir e em seguida clique em Módulo.

inserir módulo

Na Janela de Código adicione o seguinte código:

Sub AdicionaImagem()
Dim CaminhoIMG As String
CaminhoIMG = "C:\VBA\Imagem\microsoftword.jpg"
ThisDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary) _
 .Range.InlineShapes.AddPicture (CaminhoIMG)
End Sub


Deverá ficar como na imagem abaixo:

Código VBA

OBS: Para que o código funcione perfeitamente é necessário que seja informado corretamente o endereço onde está o arquivo de imagem e sua extensão (jpg, gif, bmp, png, etc). Neste exemplo a imagem que estou usando encontra-se arquivado em C:\VBA\Imagem\microsoftword.jpg.

Agora feche o Editor do Visual Basic para voltar ao documento através do menu Arquivo >> Fechar e voltar para Microsoft Word.

Fechar o Editor do Visual Basic

Salve o documento como Documento Habilitado para Macro do Word, em seguida acione a Guia Desenvolvedor e no Grupo Código clique em Macros.

macro

Selecione a macro AdicionarImagem e clique em Executar.

Executar macro

Veja o resultado:

Como inserir uma imagem no cabeçalho


Gostou? Se quiser mais eu tenho um e-Book sobre VBA que você pode se interessar.
Confira aqui




Conteúdo Correspondente:


eBook Word 2010 VBA

Política de Privacidade  |   © 2013 Tutoriais Word - Todos os direitos reservados