| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
MarioMarieti
Cmdr
Registrado: 28 Dic 2004Mensajes: 144Ubicación: Murcia (España)
|
 Publicado: Jue 14 Jun, 2007 11:19 pm Asunto: Insertar imagen en posicion X del encabezado de pág. de word |
 |
|
Me gustaría saber si se puede insertar una imagen en una posición determinada del encabezado de página y como
Si alguien me puede ayudar
Un saludo para todos los Builderos!! |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Sab 16 Jun, 2007 7:28 am Asunto: |
|
|
Para el ejemplo usamos una instancia de Word abierta:
- Añadimos la cabecera:
| Código: | #include <comobj.hpp>
// En versiones anteriores a la 6 ademas la siguiente:
// #include <utilcls.h> |
- Añadimos la siguiente función:
| Código: | inline float MmToPoints(float mm) {return mm * 2.83464567;} |
- Y usamos el siguiente código en un botón por ejemplo:
| Código: | Variant word = GetActiveOleObject("Word.Application");
Variant doc = word.OlePropertyGet("ActiveDocument");
Variant sections = doc.OlePropertyGet("Sections");
Variant footers = sections.OlePropertyGet("First").OlePropertyGet("Headers");
Variant footer = footers.OleFunction("Item", 1 /*wdHeaderFooterPrimary*/);
Variant shapes = footer.OlePropertyGet("Shapes");
Variant shape = shapes.OleFunction("AddPicture",
"c:\\dir\\imagen.bmp", // ruta a la imagen
false, // Vincular imagen al documento?
true); // Guardar la imagen vinculada con el documento?
// Coordenadas relativas al borde de la página
// en este ejemplo a 100 mm. del borde izquierdo y a 10 mm del superior
shape.OlePropertySet("RelativeHorizontalPosition", 1 /*wdRelativeHorizontalPositionPage*/);
shape.OlePropertySet("Left", MmToPoints(100));
shape.OlePropertySet("RelativeVerticalPosition", 1 /*wdRelativeVerticalPositionPage*/);
shape.OlePropertySet("Top", MmToPoints(10)); |
Esta probado en BCB6 usando Office2007, no se que tal ira en otras versiones. En esta aunque nos salgamos del recuadro de cabecera lo sigue considerando como cabecera y saldrá en todas las páginas de fondo.. |
|
| Volver arriba |
|
|
MarioMarieti
Cmdr
Registrado: 28 Dic 2004Mensajes: 144Ubicación: Murcia (España)
|
| Publicado: Mie 20 Jun, 2007 3:37 am Asunto: |
|
|
Gracias Leo, como siempre tienes respuesta para todo.
Lo probaré y si me da algún problema te lo digo.
Un saludo. |
|
| Volver arriba |
|
|
MarioMarieti
Cmdr
Registrado: 28 Dic 2004Mensajes: 144Ubicación: Murcia (España)
|
| Publicado: Mie 20 Jun, 2007 3:51 am Asunto: |
|
|
Gracias Leo, como siempre tienes respuesta para todo.
Lo probaré y si me da algún problema te lo digo.
Un saludo. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
