ARRASTAR E SOLTAR

 Tópico anterior Próximo tópico Novo tópico

ARRASTAR E SOLTAR

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#70526 - 01/03/2005 12:01:51

GUTO
SAO PAULO
Cadast. em:Novembro/2004


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

Quem anda com porco farelo come!

#70527 - 01/03/2005 12:04:04

GUTO
SAO PAULO
Cadast. em:Novembro/2004


essaTExt eu substituo pelos nomes das minhas?
.Selection.TypeText Text:=Text1.Text         'Escreve no word
          .Selection.TypeParagraph                            'Enter
          .Selection.TypeText Text:=Text2.Text    

Quem anda com porco farelo come!

#70557 - 01/03/2005 14:28:39

TROVAM
SUZANO
Cadast. em:Novembro/2004


cara o controle do nome da imagem vc tera q fazer, pois essa instruo 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 padro 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...

Trovam...
renato_sptva@hotmail.com


#70560 - 01/03/2005 14:45:17

GUTO
SAO PAULO
Cadast. em:Novembro/2004


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

Quem anda com porco farelo come!

#70563 - 01/03/2005 14:52:47

TROVAM
SUZANO
Cadast. em:Novembro/2004


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, ento o comando fica da seguinte forma:


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

Obs.: pode esquecer do ponto na frente do selection

At mais...


Trovam...
renato_sptva@hotmail.com


#70565 - 01/03/2005 14:59:37

GUTO
SAO PAULO
Cadast. em:Novembro/2004


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\Cpia de Cpia de Imobiliaria.1dois.jpg", LinkToFile:=False, SaveWithDocument:=True
     End With

Quem anda com porco farelo come!

#70567 - 01/03/2005 15:03:43

TROVAM
SUZANO
Cadast. em:Novembro/2004


antes de mais nada, em qual diretorio a sua figura est salva?

At mais...

Trovam...
renato_sptva@hotmail.com


#70569 - 01/03/2005 15:11:40

GUTO
SAO PAULO
Cadast. em:Novembro/2004


C:\WINDOWS\Desktop\Cpia de Cpia de Imobiliaria , na mesma pasta q meu programa

Quem anda com porco farelo come!

#70571 - 01/03/2005 15:20:21

TROVAM
SUZANO
Cadast. em:Novembro/2004


Caro Guto apague a seguinte linha do evento do clique do boto:

Sub WriteWord()

Que deve resolver o seu problema...

At mais...

Trovam...
renato_sptva@hotmail.com


#70574 - 01/03/2005 15:33:17

GUTO
SAO PAULO
Cadast. em:Novembro/2004


method or data not found  neses picture
SavePicture imgFoto.Picture, App.Path & "\1dois.jpg"

Quem anda com porco farelo come!

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45