-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 El 2009-05-29 a las 20:53 +0200, Camaleón escribió:
Esta macro es un copia/pega que he visto por ahí, buscando en Google. Funcionar funciona, al menos en el OOo writer 2.6, pero hay que ir seleccionando una imagen cada vez y ejecutar la macro sobre ella :-/
Bueno, eso me puede valer, porque es lo que he estado haciendo en Word, al fin y al cabo. Es tedioso pero menos que cambiar cada propiedad una a una. Me viene bien porque así posiciono cada foto correctamente respecto al texto. Luego la pruebo, gracias.
*** Sub ResizeEmbeddedPictureInWriter
oDesktop = createUnoService("com.sun.star.frame.Desktop") oDocument = ThisComponent oSelection = oDocument.CurrentSelection
If oSelection.ImplementationName <> "SwXTextGraphicObject" Then MsgBox "Select image first..." Exit Sub End If
nFactor = 25 If Not(IsNumeric(nFactor)) Then Exit Sub nFactor = Val(nFactor)/100 Dim oSize as new com.sun.star.awt.Size oSize.Width = Int(oSelection.Width * nFactor) oSize.Height = Int(oSelection.Height * nFactor) oSelection.setSize(oSize)
End Sub ***
Mmmm... Me gustaría aprovechar para cambiar algunos otros parámetros, pero no conozco la sintaxis ni las variables disponibles. Por cierto, ¿has visto quizás algún sitio de recetas y macros para OOo?
¿Hay alguna manera de simplemente seleccionar todas las fotos y aplicar una serie de propiedades a todas ellas, de un sólo golpe?
Parece que es uno de esos bugzilla eternos...
http://www.openoffice.org/issues/show_bug.cgi?id=28125
No sólo es que no se pueda agrupar, ¡es que no admite una selección múltiple de imágenes! >:-(
Muy cierto :-/ No estoy seguro siquiera de que haya una forma de definir un formato por defecto para nuevas fotos (lo he visto nosedonde), pero en este caso tampoco me valdría.
Es que ir de una en una es un peñazo increible, me duele ya el dedo del ratón de tanto click (en Word esta manñana, ahora quiero seguir en OOo).
Si quisieras la salida en html sería mucho más sencillo: defines un estilo css para todas las imágenes del documento y le aplicas una reducción del 25% (ancho y alto). Utilizando los estilos también se puede ajustar la posición de las imágenes, alineación y margen. Es automático. Luego podrías "imprimirlo" a un PDF, pero si necesitas que esté en .doc, pues esa opción no te sirve.
Lo prefiero en .odt, porque lo quiero para imprimir. Empecé en .doc porque lo he hecho en ratos libres en el trabajo (tengo unos cuantos ratos de espera), y allí lo que tengo es word. Si teneis curiosidad es “A CONNECTICUT YANKEE IN KING ARTHUR'S COURT” by MARK TWAIN (Samuel L. Clemens), bajado del proyecto Guttemberg, en (http://www.gutenberg.org/files/86/86-h/86-h.htm; podeis ver el tamaño de las fotos: las reduzco y las inserto con el texto. O sea, el original es html, y lo que busco es compactarlo para imprimirlo: empecé con cuatrocientas páginas y voy por 250, a falta de procesar unas cuantas fotos. - -- Saludos Carlos E. R. -----BEGIN PGP SIGNATURE----- Version: GnuPG v2.0.9 (GNU/Linux) iEYEARECAAYFAkogRHMACgkQtTMYHG2NR9UFRQCfS7SLqA/xWsMmH59dcyqQGRLY jt4AnR2bOjF2XInqfsclvrqZui55Tysx =Hemm -----END PGP SIGNATURE-----