Club Builder

[yo mismo]

Estoy tratando de encontrar algo sobre como manejar la entrada de una imagen mediante automatización ole en el Word, bueno se que hay que manejar el objeto Shape y el Método AddPicture pero no logro que funcione. Espero que alguien ( LEOOOOOOOOOOOO) me pueda hechar un mano.
Gracias

[_Leo]

Hola "yo mismo" (como a todos nos de por firmar así )

Para resumir, con Word abierto prueba lo siguiente:

[yo mismo]

" " Moitas Gracias " "
Me ha funcionado perfectamente.. te lo agradezco.

[NUNCA MAIS]

Hola:
Este es un tema que a mi tb me interesa, me gustaría saber tb como se utiliza el metodo del InlineShapes Range, lo digo para colocar la imagen en la posición del documento que yo quiera.Estuve buscando por internet pero todo esta para el "puto VB "

GRACIAS A TODOS

[yo mismo]

Hola Leo:

Mira he encontrado esta página en Chino (Nunca mejor dicho) .

void __fastcall TForm1::Button5Click(TObject £ªSender)
Variant Vshape,Vactive1,Vline;
Vactive1=V.OleFunction("ActiveDocument");
Vshape=Vactive1.OleFunction("Shapes");
// »ñ È¡ µ± Ç° »î ¶¯ ÎÄ µµ µÄShapes ¶Ô Ïó
// ʹ ÓÃShapes ¶Ô Ïó µÄAddLine ·½ ·¨ »¯ Ö± Ïß
Vline=Vshape.OleFunction("AddLine",90,80,400,80);
if (OpenDialog1 £­>Execute())
// ʹ ÓÃShapes ¶Ô Ïó µÄAddPicture
·½ ·¨ ²å Èë Ö¸ ¶¨ λ ͼ
Vshape.OleFunction("AddPicture",OpenDialog1
£­>FileName,50,50,80,100);
}

Intento pasarle tambien las coordenadas donde quiero poner la foto y el tamaño. Pero no me deja, he probado a poner

Variant Select=vWord.OlePropertyGet("Selection");
Variant Rango=Select.OlePropertyGet("Range");
Variant Dib=Rango.OlePropertyGet("InlineShapes").OleFunction("AddPicture",imagen.c_str(),true,false,Rango);

Esto funciona pero ahora necesitaria meterle las propiedades a "Range".Sabes algo de esto, por cierto AddLine es un metodo de Shapes o tb de InlineShapes

[Maria]

Hola a todos;

A mi tb me gustaría saber más sobre esto, pero me interesa más La función AddLine y AddOleObject del objeto Shape..Leoooo sabes algo de esto

[_Leo]

Hola:

Yo no utilizo mucho esto, todo lo saco de la propia ayuda de Office, que en el caso del Office XP se llama "WDMAIN10.CHM" en mi caso en el path: "C:\Archivos de programa\Microsoft Office\Office10\3082", y dentro de la ayuda bajo "Información de programación" como muestra la imagen. Pero bueno, intentaré ayudar en lo que pueda.