Insertar imagen en Word con vb net
He creado un programa con vb net que genera sucesivos certificados (documentos de Word) personalizados con la información de una base de datos (Access).
Lo que ahora necesito es insertar un logotipo en ese documento, pero con el código que he encontrado, el logotipo me sale después de escribir la última línea de texto, y con un tamaño que sobrepasa el área de la página.
Lo que necesito es que alguien me ayude a lograr estos tres objetivos:
- Insertar el logotipo al principio de la página.
- Que salga centrado.
- Poder ajustar el tamaño.
A continuación copio el código (con el texto del certificado abreviado) que tengo funcionando. He resaltado el código añadido para insertar el logotipo.
DimImagen As Object, LogoPath As String = Application.StartupPath &"\Logotipo.png"
Dim DocuClase As Word.ApplicationClass
DocuClase = New Word.ApplicationClass
DocuClase.WindowState = Word.WdWindowState.wdWindowStateNormal
DocuClase.Documents.Add()
Imagen = DocuClase.ActiveDocument.Shapes.AddPicture(LogoPath)
With DocuClase
.Selection.Font.Bold = 1
.Selection.Font.Name = "Verdana"
.Selection.Font.Size = 12
.Selection.TypeText("CERTIFICA")
.Selection.TypeParagraph()
.Selection.Font.Bold = 0
.Selection.Font.Name = "Verdana"
.Selection.Font.Size = 12
TextoDoc = "Doña " & PrpFirmante
TextoDoc &= dtDocuTexto.Rows(0).Item("Nombre").ToString & " "
.Selection.TypeText(TextoDoc)
.Selection.TypeParagraph()
DocuClase.ActiveDocument.Range.ParagraphFormat.Alignment = _
Word. WdParagraphAlignment. WdAlignParagraphJustify
DocuClase. ActiveDocument. SaveAs(Archivo. ToString)
DocuClase. ActiveDocument. PrintOut()
DocuClase. ActiveDocument. Close()
DocuClase. Quit()
DocuClase = Nothing
