Programación General > Visual Basic 6.0 e inferiores
Manejo De Word
(1/1)
giomar:
Hola amigos de solocodigo, necesito su ayuda se trata que deseo cargar una imagen a un documento en word creado desde visual basic, el codigo usado es:
Dim MSWord As New Word.Application
Dim Documento As Word.Document
Dim Parrafo As Paragraph
Dim vArchivo1 As String
Set Documento = MSWord.Documents.Add
vArchivo1 = rsDatosPersonales!Ruta & "\ruc.jpg"
Selection.InlineShapes.AddPicture FileName:=vArchivo1, LinkToFile:=False, SaveWithDocument:=True
MSWord.Visible = True
El problema es uqe no muestra la imagen crea y abre el documento pero no inserta la imagen, como veran la ruta del archivo lo obtengo de una base de datos, he probado colocando la ruta directamente pero siguo teniendo el miso problema, tengo office XP y lo tengo referenciado desde vb, asi que no entiendo cual podria ser el problema.
Si alguien puede ayudarme se lo agredecere mucho ya que es importantisimo para mi.
Gracias por su tiempo, y exitos...
eliza_marti:
Hola giomar :hola: ..al selection indicale de que documento se trata (osea en tu caso de MSWord) y en la extension jpg ponle jpeg ... :) ..prueba de esa forma y me cuentas si te salió.. ;) ..
el codigo quedaria asi:
--- Código: Text ---Dim MSWord As New Word.ApplicationDim Documento As Word.DocumentDim Parrafo As ParagraphDim vArchivo1 As String Set Documento = MSWord.Documents.Add vArchivo1 = rsDatosPersonales!Ruta & "\ruc.jpeg" 'mira aqui :) 'mira que le agregué la partecita de MSWord.Selection..no el Selection solito MSWord.Selection.InlineShapes.AddPicture FileName:=vArchivo1, LinkToFile:=False, SaveWithDocument:=True MSWord.Visible = True
Espero que te sirva.. :hola: bye nos vemos.. :comp: :smartass:
giomar:
Gracias eliza_marti , solucione el problema con ayuda.
eliza_marti:
Me alegro que lo hayas resuelto giomar ;) ..pero porcia asi como te dije si te debe de salir.. :) yo ya hice la prueba y si me salio.. :) ..
Bueno me voy :hola: mucha suerte ..nus vemos.. :comp:
Navegación
Ir a la versión completa