Insert an image to a word marker from MS Visual Basic?

1

I have a form in MS Visual Basic from which the data entered in the, are inserted into some markers that I have in a word template, I am now trying to insert an image, which I have in a picture box and the charge to through a button linked to an openfiledialog with the following code:

  Private Sub btncargar_Click(sender As Object, e As EventArgs) Handles btncargar.Click
            'cargaimagen.InitialDirectory = "C:\users"
            If cargaimagen.ShowDialog() = Windows.Forms.DialogResult.OK Then
                pb1.Image = Image.FromFile(cargaimagen.FileName)
                ruta = cargaimagen.FileName
                imagenempresa = pb1.Image
                MsgBox(ruta)
            End If
        End Sub
Al momento de insertar la información ingresada en el formulario a los marcadores de word uso el siguiente código:
'funcion para agregar valores a los marcadores ya creados en el archivo word
                documento.Bookmarks.Item("valortotal").Range.Text = valorpersonal
                'funcion para agregar valor en letras al word
                documento.Bookmarks.Item("valorletras").Range.Text = valorletras
                'funcion para asignar el numero de dias del plazo de entrega
                documento.Bookmarks.Item("diasletras").Range.Text = diasletras
                'funcion para asignar dias en letras 
                documento.Bookmarks.Item("dias").Range.Text = plazoentrega
                'funcion para asignar la fecha
                documento.Bookmarks.Item("fecha").Range.Text = fecha
                documento.Bookmarks.Item("fecha2").Range.Text = fecha
                documento.Bookmarks.Item("fecha3").Range.Text = fecha
                'Bloque donde se añade los datos del cliente en los respectivos marcadores de la plantilla word
                documento.Bookmarks.Item("nombrecliente").Range.Text = nombrecliente
                documento.Bookmarks.Item("correocliente").Range.Text = correocliente
                documento.Bookmarks.Item("empresacliente").Range.Text = empresacliente
                documento.Bookmarks.Item("referencia").Range.Text = referenciaestudio
                documento.Bookmarks.Item("logo").Range.InlineShapes.AddPicture(ruta, LinkToFile:=False, SaveWithDocument:=True)

However the last line:

documento.Bookmarks.Item("logo").Range.InlineShapes.AddPicture(ruta, LinkToFile:=False, SaveWithDocument:=True)

It does not show me any error, but it does not insert the image in the proposed marker for it. How could I do it?

    
asked by Ándres Felipe Patiño 14.02.2018 в 17:37
source

1 answer

-1

I hope I'll still serve you

Dim MSWord As New Word.Application

MSWord.Selection.InlineShapes.AddPicture(FileName:=(Ruta), LinkToFile:=False, SaveWithDocument:=True)
    
answered by 20.07.2018 в 01:49