Incrustacion de imagenes
Publicado por Oscar (2 intervenciones) el 13/08/2012 21:48:47
Saludos
Tengo el siguiente consulta tengo este codigo que incrusta una imagen en word la incrusta en word desde vb6 pero yo deseo que quede abajo en el pie de paguina y no arriba
Gracias desde ya
Este codigo pega la imagen pero en la parte superior yo la deseo abajo en el pied de pagina
'Referencias VB 6.0
'Microsoft Office Object Library
'Microsoft Word Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
'Ruta
Const NOMBRE_ARCHIVO = "C:\Documentos.Doc"
Set WordApp = CreateObject("Word Application")
Set WordDoc = WordApp.Documents.open(NOMBRE_ARCHIVO & "\imagenes.doc")
WordApp.Selection.InlinesShapes.AddPicture ("C:\admon documentos\DocumentosDoc\MAPA.JPG")
Set WordDoc = Nothing
Set WordApp = Nothing
Tengo el siguiente consulta tengo este codigo que incrusta una imagen en word la incrusta en word desde vb6 pero yo deseo que quede abajo en el pie de paguina y no arriba
Gracias desde ya
Este codigo pega la imagen pero en la parte superior yo la deseo abajo en el pied de pagina
'Referencias VB 6.0
'Microsoft Office Object Library
'Microsoft Word Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
'Ruta
Const NOMBRE_ARCHIVO = "C:\Documentos.Doc"
Set WordApp = CreateObject("Word Application")
Set WordDoc = WordApp.Documents.open(NOMBRE_ARCHIVO & "\imagenes.doc")
WordApp.Selection.InlinesShapes.AddPicture ("C:\admon documentos\DocumentosDoc\MAPA.JPG")
Set WordDoc = Nothing
Set WordApp = Nothing
Valora esta pregunta


0