COLOCAR LOGO NO CABECALHO DO WORD
Caros colegas,
Estou fazendo um contrato no Word, no qual pego todas as informações referentes ao mesmo no meu sistema, feito em VB6. Até ai tudo bem...
Gostaria de saber como faço para Colocar um Logo no Cabeçalho do meu Contrato do feito no Word via código ???
Desje já agradeço a quem puderme ajudar.
Atenciosamente,
Estou fazendo um contrato no Word, no qual pego todas as informações referentes ao mesmo no meu sistema, feito em VB6. Até ai tudo bem...
Gostaria de saber como faço para Colocar um Logo no Cabeçalho do meu Contrato do feito no Word via código ???
Desje já agradeço a quem puderme ajudar.
Atenciosamente,
Caros colegas,
Quando quero colocar um cabeçalho no Word via código, faço como está descrito logo abaixo. Porém preciso inserir um logo no cabeçalho. Será que alguem pode me ajudar ?
----------------------------------------------------------------------------------------------------------------
'CABEÇALHO
'Tamanho da Fonte no Cabeçalho
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Size = 12
'Alinhamento no Cabeçalho - Direita
.Selection.Sections(1).Headers_ (wdHeaderFooterPrimary).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
'Negrito no Cabeçalho
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Bold = True
'Texto do Cabelho
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Texto"
'Negrito no Cabeçalho
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Bold = False
Quando quero colocar um cabeçalho no Word via código, faço como está descrito logo abaixo. Porém preciso inserir um logo no cabeçalho. Será que alguem pode me ajudar ?
----------------------------------------------------------------------------------------------------------------
'CABEÇALHO
'Tamanho da Fonte no Cabeçalho
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Size = 12
'Alinhamento no Cabeçalho - Direita
.Selection.Sections(1).Headers_ (wdHeaderFooterPrimary).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
'Negrito no Cabeçalho
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Bold = True
'Texto do Cabelho
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Texto"
'Negrito no Cabeçalho
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Bold = False
Tópico encerrado , respostas não são mais permitidas