DOCUMENTO COM FOTO
Ola galera blz!
Estou fazendo um sistema em vb6 que cria o documento em word. Ate ai blz so que é uma carteinhia e tenho que criar com a foto. como faço para criar o documento com foto. o codigo e assim:
Set objWord = New Word.Application
objWord.Documents.Open App.Path & [Ô]\Carteirinha\Carteirinha.doc[Ô]
objWord.Visible = True
objWord.WindowState = wdWindowStateMaximize
Call Troca([Ô]@Foto[Ô], frmAssociados.imgFoto.Picture)
Call Troca([Ô]@Nome[Ô], frmAssociados.txtNome.Text)
Call Troca([Ô]@Matricula[Ô], frmAssociados.txtMatricula.Text)
Call Troca([Ô]@Pai[Ô], frmAssociados.txtPai.Text)
Call Troca([Ô]@Mae[Ô], frmAssociados.txtMae.Text)
Call Troca([Ô]@Funcional[Ô], frmAssociados.txtFuncional.Text)
Call Troca([Ô]@RG[Ô], frmAssociados.txtRG.Text)
Call Troca([Ô]@DataNascimento[Ô], frmAssociados.txtDataNascimento.Text)
Set objWord = Nothing [ô]Libera a memória
cria certo so que não coloca a foto
Estou fazendo um sistema em vb6 que cria o documento em word. Ate ai blz so que é uma carteinhia e tenho que criar com a foto. como faço para criar o documento com foto. o codigo e assim:
Set objWord = New Word.Application
objWord.Documents.Open App.Path & [Ô]\Carteirinha\Carteirinha.doc[Ô]
objWord.Visible = True
objWord.WindowState = wdWindowStateMaximize
Call Troca([Ô]@Foto[Ô], frmAssociados.imgFoto.Picture)
Call Troca([Ô]@Nome[Ô], frmAssociados.txtNome.Text)
Call Troca([Ô]@Matricula[Ô], frmAssociados.txtMatricula.Text)
Call Troca([Ô]@Pai[Ô], frmAssociados.txtPai.Text)
Call Troca([Ô]@Mae[Ô], frmAssociados.txtMae.Text)
Call Troca([Ô]@Funcional[Ô], frmAssociados.txtFuncional.Text)
Call Troca([Ô]@RG[Ô], frmAssociados.txtRG.Text)
Call Troca([Ô]@DataNascimento[Ô], frmAssociados.txtDataNascimento.Text)
Set objWord = Nothing [ô]Libera a memória
cria certo so que não coloca a foto
tem certeza que esse Call Troca, troca imagens tambem ? acho que é so para strings hein...
Veja esse exemplo do Macoratti que funciona, com certeza serve pra voce também... link abaixo
VB 6 - Gerador de CurrÃculos (Curriculum Generator)
Abraços
Veja esse exemplo do Macoratti que funciona, com certeza serve pra voce também... link abaixo
VB 6 - Gerador de CurrÃculos (Curriculum Generator)
Abraços
mas as informações estão em um db que carrega no imgFoto
E galera não consegui colocar a imagem do imgFoto no word
Tópico encerrado , respostas não são mais permitidas