[es-discuss_es] Codigo para guardar foto

--0-422513291-1315762631=:17156
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Saludos.

Estoy almacenando fotos escaneadas por medio de writer, pero son bastantes =
y lo hago asi:=20
escaneo la foto.=A0 Se digitaliza y aparece el cuadro (la foto) en writer.=
=A0=20

Arreglo el tama=F1o exacto de cada foto,=A0 con un c=F3digo que me regalo M=
ario Baeza=A0=20

Sub Tamano_foto()

=A0=A0=A0 =A0=A0=A0 Dim oDoc As Object
=A0=A0=A0 =A0=A0=A0 Dim oPaginaDibujo As Object
=A0=A0=A0 =A0=A0=A0 Dim oImagen As Object
=A0=A0=A0 =A0=A0=A0 Dim oTam As New "com.sun.star.awt.Size"
=A0=A0=A0 =A0=A0=A0=20
=A0=A0=A0 =A0=A0=A0 oDoc =3D ThisComponent
=A0=A0=A0 =A0=A0=A0 oPaginaDibujo =3D oDoc.DrawPage
=A0=A0=A0 =A0=A0=A0 oImagen =3D oPaginaDibujo.getByIndex( oPaginaDibujo.Cou=
nt - 1 )
=A0=A0=A0 =A0=A0=A0 If oImagen.ImplementationName =3D "SwXTextGraphicObject=
" Then
=A0=A0=A0 =A0=A0=A0 =A0=A0=A0 'Ancho y alto en mil=E9simas de cent=EDmetro
=A0=A0=A0 =A0=A0=A0 =A0=A0=A0 oTam.Width =3D 2500
=A0=A0=A0 =A0=A0=A0 =A0=A0=A0 oTam.Height =3D 3500
=A0=A0=A0 =A0=A0=A0 =A0=A0=A0 oImagen.Size =3D oTam
=A0=A0=A0 =A0=A0=A0 End If

End Sub


Luego la guardo con esta macro (creada con el gravador de macros)


sub Guarda_foto
=A0=20
=A0=A0=A0=A0 rem define variables
=A0=A0=A0=A0 dim document=A0=A0 as object
=A0=A0=A0=A0 dim dispatcher as object
=A0=A0=A0=A0=A0 rem get access to the document
=A0=A0=A0=A0 document=A0=A0 =3D ThisComponent.CurrentController.Frame=20
=A0=A0=A0=A0 dispatcher =3D createUnoService("com.sun.star.frame.DispatchHe=
lper")

=A0=A0=A0 dispatcher.executeDispatch(document, ".uno:SaveGraphic", "", 0, A=
rray())

end sub


Pero tengo que ir colocando el nombre por cada una de las fotos y elegir el=
 tipo de archivo a jpg=A0 para grabarla .=A0 Los nombres llevan forma de co=
digo con un correlativo, de tal modo que pienso que eso se puede automatiza=
r, pero=A0 ........ stoy que mis pocos conocimientos no me dan pa mas...


Regalenme las lineas de codigo OO que mi permitan automatizar este proceso:=
=A0 clic derecho sobre la imagen seleccionada,=A0 Opci=F3n "Guardar gr=E1fi=
co",=A0 digitar nombre , seleccionar=A0 imagen tipo=A0 .jpeg, =A0=A0 e intr=
o. =A0=20

Gracias.


--=20
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help

--0-422513291-1315762631=:17156
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

<table cellspacing=3D"0" cellpadding=3D"0" border=3D"0" ><tr><td valign=3D"=
top" style=3D"font: inherit;">Saludos.<br><br>Estoy almacenando fotos escan=
eadas por medio de writer, pero son bastantes y lo hago asi: <br>escaneo la=
 foto.&nbsp; Se digitaliza y aparece el cuadro (la foto) en writer.&nbsp; <=
br><br>Arreglo el tama=F1o exacto de cada foto,&nbsp; con un c=F3digo que m=
e regalo Mario Baeza&nbsp; <br><br>Sub Tamano_foto()<br><br>&nbsp;&nbsp;&nb=
sp; &nbsp;&nbsp;&nbsp; Dim oDoc As Object<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp=
;&nbsp; Dim oPaginaDibujo As Object<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp=
; Dim oImagen As Object<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Dim oTam A=
s New "com.sun.star.awt.Size"<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <br>=
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oDoc =3D ThisComponent<br>&nbsp;&nbsp=
;&nbsp; &nbsp;&nbsp;&nbsp; oPaginaDibujo =3D oDoc.DrawPage<br>&nbsp;&nbsp;&=
nbsp; &nbsp;&nbsp;&nbsp; oImagen =3D oPaginaDibujo.getByIndex( oPaginaDibuj=
o.Count - 1
 )<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; If oImagen.ImplementationName =
=3D "SwXTextGraphicObject" Then<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &n=
bsp;&nbsp;&nbsp; 'Ancho y alto en mil=E9simas de cent=EDmetro<br>&nbsp;&nbs=
p;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oTam.Width =3D 2500<br>&nbsp=
;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oTam.Height =3D 3500<br=
>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oImagen.Size =3D =
oTam<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; End If<br><br>End Sub<br><br>=
<br>Luego la guardo con esta macro (creada con el gravador de macros)<br><b=
r><br>sub Guarda_foto<br>&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp; rem define var=
iables<br>&nbsp;&nbsp;&nbsp;&nbsp; dim document&nbsp;&nbsp; as object<br>&n=
bsp;&nbsp;&nbsp;&nbsp; dim dispatcher as object<br>&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp; rem get access to the document<br>&nbsp;&nbsp;&nbsp;&nbsp; document&=
nbsp;&nbsp; =3D ThisComponent.CurrentController.Frame
 <br>&nbsp;&nbsp;&nbsp;&nbsp; dispatcher =3D createUnoService("com.sun.star=
.frame.DispatchHelper")<br><br>&nbsp;&nbsp;&nbsp; dispatcher.executeDispatc=
h(document, ".uno:SaveGraphic", "", 0, Array())<br><br>end sub<br><br><br>P=
ero tengo que ir colocando el nombre por cada una de las fotos y elegir el =
tipo de archivo a jpg&nbsp; para grabarla .&nbsp; Los nombres llevan forma =
de codigo con un correlativo, de tal modo que pienso que eso se puede autom=
atizar, pero&nbsp; ........ stoy que mis pocos conocimientos no me dan pa m=
as...<br><br><br>Regalenme las lineas de codigo OO que mi permitan automati=
zar este proceso:&nbsp; clic derecho sobre la imagen seleccionada,&nbsp; Op=
ci=F3n "Guardar gr=E1fico",&nbsp; digitar nombre , seleccionar&nbsp; imagen=
 tipo&nbsp; .jpeg, &nbsp;&nbsp; e intro. &nbsp; <br><br>Gracias.<br><br><br=
></td></tr></table>=

--0-422513291-1315762631=:17156--