[es-discuss_es] Re: insertar foto desde camara (macro)

--0-1542763809-1300199031=:1668
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable



--- El lun, 14/3/11, Mauricio Baeza <[email protected]> escribi=F3:

De: Mauricio Baeza <[email protected]>
Asunto: [es-discuss_es] Re: insertar foto desde camara (macro)
Para: [email protected]
Fecha: lunes, 14 de marzo, 2011 22:14




=20=20
=20=20
El s=E1b, 12-03-2011 a las 13:37 +0000, Alejandro Rivas Mor=E1n escribi=F3:

Saludos.

Resulta que tengo una webcam y desde ella puedo capturar "fotos" por   medi=
o del menu "Insrtar - Imagen - escanear - solicitar-- (ya se a elegido el n=
ombre de la camara "USB CAM LOGITECH ...") y luego del proceso me aparece l=
a foto en la pagina pero muy peque=F1a,  como cuadrito, luego con el punter=
o debo extenderle el tama=F1o.=20=20

Pues bien, donde pudiera encontrar el codito OObasic para hacer esto. Es de=
cir, sustituir la seleccion de menu --Insertar - imagen - escanear- solicit=
ar -  y tambien, donde pudiera encontrar codigo para elegir la foto inserta=
da y amplarle el tama=F1o.=20=20=20

De antemamo disculpas por solicitar algo sin que de mi parte haya aporte, p=
ero lo que sucede es que poco se de macros y no tengo ni la menor idea de p=
or donde y como empezar.

Gracias por sus ayudas y sugerencias.







Hola Alejandro...



Para solicitar ayuda no es necesario hacer ning=FAn aporte, con ser usuario=
 es m=E1s que suficiente...



La opci=F3n que mencionas solo la veo en OOo/LibO Writer, pero no en Calc, =
=BFesta es la que estas usando?



No veo el caso de sustituir algo que ya esta funcionando, pero inmediatamen=
te despu=E9s de insertar la foto, puedes usar el siguiente c=F3digo para am=
pliar la foto al tama=F1o que quieras, te muestro donde establecer el tama=
=F1o que quieras...



Option Explicit



Sub CambiarImagen

Dim oDoc As Object

Dim oPaginaDibujo As Object

Dim oImagen As Object

Dim oTam As New "com.sun.star.awt.Size"



	oDoc =3D ThisComponent

	oPaginaDibujo =3D oDoc.DrawPage

	oImagen =3D oPaginaDibujo.getByIndex( oPaginaDibujo.Count - 1 )

	If oImagen.ImplementationName =3D "SwXTextGraphicObject" Then

		'Ancho y alto en mil=E9simas de cent=EDmetro

		oTam.Width =3D 3000

		oTam.Height =3D 3000

		oImagen.Size =3D oTam

	End If



End Sub



Toma nota que el c=F3digo anterior siempre cambiara la ultima imagen insert=
ada y por supuesto, aparte del tama=F1o, puedes cambiar cualquier propiedad=
 disponible en dicho objeto.





Saludos


Gracias mauricio.

yo pensaba en un poco de codigo para sustituir las selecciones de menu:=A0 =
--Insertar=A0 --imagen --escanear=A0 ---solicitar, de tal forma que con sol=
o unos pocos clicks (usando boton de comando para la macro) se pudiera capt=
urar la foto para insertarla y dejarla del tama=F1o (por ejemplo tama=F1o p=
ostal, o tama=F1o 'carnet' ) =A0=A0 y si seria en 00-Writer.

y saludos






--=20

__________________________________

Mauricio Baeza Serv=EDn

Universo Libre M=E9xico, A.C.

Fundador y Director General



Todo lo que no podemos dar nos posee... Andre Gide



=20



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

--0-1542763809-1300199031=:1668
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;"><br><br>--- El <b>lun, 14/3/11, Mauricio Baez=
a <i>&lt;[email protected]&gt;</i></b> escribi=F3:<br><blockquote st=
yle=3D"border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-l=
eft: 5px;"><br>De: Mauricio Baeza &lt;[email protected]&gt;<br>Asunt=
o: [es-discuss_es] Re: insertar foto desde camara (macro)<br>Para: discuss_=
[email protected]<br>Fecha: lunes, 14 de marzo, 2011 22:14<br><br><div i=
d=3D"yiv2120184464">


=20=20
=20=20
El s=E1b, 12-03-2011 a las 13:37 +0000, Alejandro Rivas Mor=E1n escribi=F3:
<blockquote type=3D"CITE">
<pre>Saludos.<br><br>Resulta que tengo una webcam y desde ella puedo captur=
ar "fotos" por   medio del menu "Insrtar - Imagen - escanear - solicitar-- =
(ya se a elegido el nombre de la camara "USB CAM LOGITECH ...") y luego del=
 proceso me aparece la foto en la pagina pero muy peque=F1a,  como cuadrito=
, luego con el puntero debo extenderle el tama=F1o.  <br><br>Pues bien, don=
de pudiera encontrar el codito OObasic para hacer esto. Es decir, sustituir=
 la seleccion de menu --Insertar - imagen - escanear- solicitar -  y tambie=
n, donde pudiera encontrar codigo para elegir la foto insertada y amplarle =
el tama=F1o.   <br><br>De antemamo disculpas por solicitar algo sin que de =
mi parte haya aporte, pero lo que sucede es que poco se de macros y no teng=
o ni la menor idea de por donde y como empezar.<br><br>Gracias por sus ayud=
as y sugerencias.<br><br></pre>
</blockquote>
<br>
<br>
Hola Alejandro...<br>
<br>
Para solicitar ayuda no es necesario hacer ning=FAn aporte, con ser usuario=
 es m=E1s que suficiente...<br>
<br>
La opci=F3n que mencionas solo la veo en OOo/LibO Writer, pero no en Calc, =
=BFesta es la que estas usando?<br>
<br>
No veo el caso de sustituir algo que ya esta funcionando, pero inmediatamen=
te despu=E9s de insertar la foto, puedes usar el siguiente c=F3digo para am=
pliar la foto al tama=F1o que quieras, te muestro donde establecer el tama=
=F1o que quieras...<br>
<br>
Option Explicit<br>
<br>
Sub CambiarImagen<br>
Dim oDoc As Object<br>
Dim oPaginaDibujo As Object<br>
Dim oImagen As Object<br>
Dim oTam As New "com.sun.star.awt.Size"<br>
<br>
	oDoc =3D ThisComponent<br>
	oPaginaDibujo =3D oDoc.DrawPage<br>
	oImagen =3D oPaginaDibujo.getByIndex( oPaginaDibujo.Count - 1 )<br>
	If oImagen.ImplementationName =3D "SwXTextGraphicObject" Then<br>
		'Ancho y alto en mil=E9simas de cent=EDmetro<br>
		oTam.Width =3D 3000<br>
		oTam.Height =3D 3000<br>
		oImagen.Size =3D oTam<br>
	End If<br>
<br>
End Sub<br>
<br>
Toma nota que el c=F3digo anterior siempre cambiara la ultima imagen insert=
ada y por supuesto, aparte del tama=F1o, puedes cambiar cualquier propiedad=
 disponible en dicho objeto.<br>
<br>
<br>
Saludos<br>
<br>Gracias mauricio.<br><br>yo pensaba en un poco de codigo para sustituir=
 las selecciones de menu:&nbsp; --Insertar&nbsp; --imagen --escanear&nbsp; =
---solicitar, de tal forma que con solo unos pocos clicks (usando boton de =
comando para la macro) se pudiera capturar la foto para insertarla y dejarl=
a del tama=F1o (por ejemplo tama=F1o postal, o tama=F1o 'carnet' ) &nbsp;&n=
bsp; y si seria en 00-Writer.<br><br>y saludos<br>
<br>
<table cellpadding=3D"0" cellspacing=3D"0" width=3D"100%">
<tbody><tr>
<td>
-- <br>
__________________________________<br>
Mauricio Baeza Serv=EDn<br>
Universo Libre M=E9xico, A.C.<br>
Fundador y Director General<br>
<br>
<b>Todo lo que no podemos dar nos posee... Andre Gide</b>
</td>
</tr>
</tbody></table>
=20
</div></blockquote></td></tr></table><br>



=20=20=20=20=20=20=

--0-1542763809-1300199031=:1668--