ARRASTAR E SOLTAR

GUTO 01/03/2005 12:01:51
#70526
expect end sub Private Sub Command4_Click()
eu coloquie assim agora
SavePicture imgFoto.Picture, App.Path & "\word.jpg"

Selection.InlineShapes.AddPicture FileName:= app.path & "\1dois.jpg", _ LinkToFile:=False, SaveWithDocument:=True

esta ficando vermelha ainda

so uma pergunta trovam se essa imagem dois for deletada do meu controle de imagem e entrar outra no lugar depois esse codigo vai se ajustar ao nome novo da imagem, ? pq é um controle de imagem as fotos podem variar, obrigado

referencia microsoft Word 9.0 library ja referenciei tamen
GUTO 01/03/2005 12:04:04
#70527
essaTExt eu substituo pelos nomes das minhas?
.Selection.TypeText Text:=Text1.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=Text2.Text
TROVAM 01/03/2005 14:28:39
#70557
cara o controle do nome da imagem vc tera q fazer, pois essa instrução à± sabe q a imagem à± existe manis no caso. O q vc pode fazer e criar uma variavel contendo o caminho e o nome da imagem...

Ta dando erro ainda pq vc tem q tirar "_" depois da virgula do nome da figura...

Vai ficar assim:
Selection.InlineShapes.AddPicture FileName:= app.path & "\1dois.jpg", LinkToFile:=False, SaveWithDocument:=True

A parte do codigo q escreve no word vc deve colocar os campos textos do seu programa. o codigo padrão para ecrever é .Selection.TypeText Text:= e o q vem depois do igual e o campo texto do seu sistema.

Exemplo:

.Selection.TypeText Text:= Txt_Nome.Text
.Selection.TypeParagraph
.Selection.TypeText Text:= Txt_Telefone.Text

Até mais...
GUTO 01/03/2005 14:45:17
#70560
Trovam esta quase dando certo iramo so tenho 1 pergunta pra fazer oq seria esse word.jpg?
SavePicture imgFoto.Picture, App.Path & "\word.jpg"
O meu codigo esta dano expect end sub Private Sub Command4_Click()
Ficou assim irmao


Private Sub Command4_Click()
Sub WriteWord()
Dim Word As Word.Application

Set Word = New Word.Application

With Word
.Documents.Add DocumentType:=wdNewBlankDocument 'Nova Pagina
.Selection.TypeText Text:=txtcod.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtcodimo.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=txtdescricao.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtname.Text
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtbairro.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=txtdormitorio.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtcozi.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=txtsala.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtgaragem.Tex
.Selection.TypeParagraph
.Selection.TypeText Text:=txtmetra.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtutil.Tex
.Selection.TypeParagraph
.Selection.TypeText Text:=txtobsdorm.Text 'Escreve no word

'e assim por diante

'agora para colocar a imagem tem q fazer o seguinte
SavePicture imgFoto.Picture, App.Path & "\word.jpg"

Selection.InlineShapes.AddPicture FileName:=App.Path & "\1dois.jpg", LinkToFile:=False, SaveWithDocument:=True
End With


End Sub
TROVAM 01/03/2005 14:52:47
#70563
word.jpg é o nome que eu dei a figura...

Essa figura q vc quer incluir no word está salva no seu hd? Pois se estiver é só vc trocar o app.path & "\word.jpg" pelo caminho e nome da figura.

Por exemplo:
Vamor supor q a minha figura está no diretorio VB6 e o nome dela é teste.jpg, então o comando fica da seguinte forma:


.Selection.InlineShapes.AddPicture FileName:="C:\VB6    este.jpg", LinkToFile:=False, SaveWithDocument:=True

Obs.: à± pode esquecer do ponto na frente do selection

Até mais...
GUTO 01/03/2005 14:59:37
#70565
Fiz assim trovam , tem paciencia irmao mas deu expect emd sub
'agora para colocar a imagem tem q fazer o seguinte
SavePicture imgFoto.Picture, App.Path & "\1dois.jpg"

.Selection.InlineShapes.AddPicture FileName:="C:\WINDOWS\Desktop\Cópia de Cópia de Imobiliaria.1dois.jpg", LinkToFile:=False, SaveWithDocument:=True
End With
TROVAM 01/03/2005 15:03:43
#70567
antes de mais nada, em qual diretorio a sua figura está salva?

Até mais...
GUTO 01/03/2005 15:11:40
#70569
C:\WINDOWS\Desktop\Cópia de Cópia de Imobiliaria , na mesma pasta q meu programa
TROVAM 01/03/2005 15:20:21
#70571
Caro Guto apague a seguinte linha do evento do clique do botão:

Sub WriteWord()

Que deve resolver o seu problema...

Até mais...
GUTO 01/03/2005 15:33:17
#70574
method or data not found neses picture
SavePicture imgFoto.Picture, App.Path & "\1dois.jpg"
Página 2 de 3 [30 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar