Insertar imagen

Hace tiempo escribí el código que te paso a continuación:
Me. Refresh
DoCmd.SetWarnings False
DoCmd. OpenQuery "CnsInformesRecercaTemporalEliminarBis", acViewNormal
DoCmd. OpenQuery "CnsInformesRecercaTemporalBis", acViewNormal
'DoCmd. RunMacro "McrInformeCastella"
'DoCmd. Close acForm, "FrmInformesRecerca"
'DoCmd. Close acForm, "FrmResultatsConsultaHistoric"
'DoCmd. Close acForm, "FrmConsultaHistoric"
Set MSWord = New Word.Application
MSWord.Visible = True
Set Doc = MSWord.Documents.Add()
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![SR])
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![DadesPacient])
Doc.Range.InsertParagraphAfter
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![EXP])
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![NumProces])
Doc.Range.InsertParagraphAfter
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![DAT])
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![DataProva])
Doc.Range.InsertParagraphAfter
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![PRD])
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![Procedencia])
Doc.Range.InsertParagraphAfter
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![EXPRDA])
Doc.Range.InsertParagraphAfter
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![Exploracio])
Doc.Range.InsertParagraphAfter
Doc.Range.InsertParagraphAfter
Doc.Range.InsertParagraphAfter
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![INF])
Doc.Range.InsertParagraphAfter
Doc.Range.InsertParagraphAfter
Doc.Range.InsertAfter ([Forms]![FrmInformesRecerca]![TEC])
Doc.Range.InsertParagraphAfter
Esto es parte del código perteneciente a un "CreateObject", para insertar en un documento word el texto de unos determinados campos. El problema es que ahora tengo que insertar, al mismo tiempo una determinada imagen, en la esquina superior del documento. ¿Cómo lo puedo hacer?.

1 Respuesta

Respuesta
1
Lo único que conozco es para insertar la imagen:
Selection.InlineShapes.AddPicture FileName:= _
"C:Documents and Settingsid002034Mis documentosMis imágenes1116.jpg" _
, LinkToFile:=False, SaveWithDocument:=True
Tal vez en la siguiente página encuentres algo más para colocar la imagen en una posición determinada.
http://www.planetsourcecode.com
http://wwwjrubi.com

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar macro repetidamente más de 20 veces

Tengo un programilla hecho para llevar la planificación de un hotel. Para que lo entendáis rápidamente a partir de "n" reservas se asigna automáticamente una habitación en función de unas prioridades. Bien, la pregunta es, para hacer esto ejecuto la...
1 respuesta

Formulario consulta entre fechas access 2007

He hecho la pregunta esta mañana pero no me sale, así que la hago de nuevo Tengo una tabla "productos_tb" en el que hay un campo "fecha compra" Para que me salgan los productos recibidos entre dos fechas determinadas hago la consulta y en el criterio...
1 respuesta

Arrastrar datos entre formularios

Tengo un formulario (ofertas) que según el valor de una combobox hace aparecer un botón, el cual, al ser pulsado "arrastra" una serie de datos a otro formulario (contratos). Todo esto funciona bien, el problema es que cada vez que se arrastranlos...
1 respuesta

Imprimir varias copias de informes

¿Cómo se puede hacer para imprimir una número determinado de copias de un informe a través de código? Yo he puesto el siguiente: DoCmd. OpenReport "PREVISION2", acViewNormal, "MENSUAL2", "", donde mensual 2 es una consulta que solicita el mes que...
2 respuestas

Filtrar formularios

Estoy intentando crear una base de datos en la que tengo un formulario de dialogo (Menú Inicio) con un cuadro combinado (cuadro_combinado18) al que le he añadido el evento "al actualizar" para que abra otro formulario (frmcos) que contiene un...
1 respuesta

Filtro formulario

Tengo el siguiente código al abrir un formulario llamado "protocolo0" que a su vez tiene subformularios dependientes: (la estructura es protocolo0 con relación uno a varios con protocolo1 con relación uno a varios con protocolo2 con relación uno a...
1 respuesta

Manejo de Registros - Form multiregistros

Estoy haciendo una aplicación Access (formularios Access- código VB). Necesito hacer un form multiregistros que, permita insertar y eliminar registros. Pero que de la opción al usuario de deshacer dichos inserts o deletes. ¿Es posible? ¿Me conviene...
1 respuesta

Problema con Base de Datos Access 2013

Estoy construyendo una base de datos en access descargue un ejemplo de una agenda avisadora cuando creo el modulo para correr los formularios y que me avise si hay eventos pendientes me marca este error error de compilación error de sintaxis Te...
1 respuesta

Password con 3 intentos por usuario

Ayer te pregunté sobre un problema en la autentificación del usuario para entrar en la base de datos, ¿Lo recuerdas?. Una vez solucionado dicho problema, me surge la idea de hacer que esos tres intentos sean por cada usuario, de manera que si un...
1 respuesta

Reflejar de unformulario a otro

Tengo un pequeño problema estoy iniciando en esto y a demás que me gusta estoy creando unas base de datos para mi trabajo de taxi, Mi problema es el siguiente: Tengo un formulario llamado NUEVO SERVICIO en donde tengo un único campo llamado...
1 respuesta