[es-discuss_es] Re: insertar foto desde camara (macro)
Mauricio Baeza <[email protected]> Mon, 14 Mar 2011 15:14:53 -0600
| Newsgroups | gmane.comp.openoffice.general.spanish |
|---|---|
| Organization | Universo Libre México, A.C. |
| Message-ID | <[email protected]> |
--=-Hq8wzFPO2BedLcePsxOf Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable El s=C3=A1b, 12-03-2011 a las 13:37 +0000, Alejandro Rivas Mor=C3=A1n escri= bi=C3=B3: > Saludos. >=20 > Resulta que tengo una webcam y desde ella puedo capturar "fotos" por me= dio 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=C3=B1a, como cuadrito, luego con el p= untero debo extenderle el tama=C3=B1o.=20=20 >=20 > Pues bien, donde pudiera encontrar el codito OObasic para hacer esto. Es = decir, sustituir la seleccion de menu --Insertar - imagen - escanear- solic= itar - y tambien, donde pudiera encontrar codigo para elegir la foto inser= tada y amplarle el tama=C3=B1o.=20=20=20 >=20 > 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 tengo ni la menor idea de= por donde y como empezar. >=20 > Gracias por sus ayudas y sugerencias. >=20 Hola Alejandro... Para solicitar ayuda no es necesario hacer ning=C3=BAn aporte, con ser usuario es m=C3=A1s que suficiente... La opci=C3=B3n que mencionas solo la veo en OOo/LibO Writer, pero no en Cal= c, =C2=BFesta es la que estas usando? No veo el caso de sustituir algo que ya esta funcionando, pero inmediatamente despu=C3=A9s de insertar la foto, puedes usar el siguiente c=C3=B3digo para ampliar la foto al tama=C3=B1o que quieras, te muestro don= de establecer el tama=C3=B1o 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=C3=A9simas de cent=C3=ADmetro oTam.Width =3D 3000 oTam.Height =3D 3000 oImagen.Size =3D oTam End If End Sub Toma nota que el c=C3=B3digo anterior siempre cambiara la ultima imagen insertada y por supuesto, aparte del tama=C3=B1o, puedes cambiar cualquier propiedad disponible en dicho objeto. Saludos --=20 __________________________________ Mauricio Baeza Serv=C3=ADn Universo Libre M=C3=A9xico, A.C. Fundador y Director General Todo lo que no podemos dar nos posee... Andre Gide -- ----------------------------------------------------------------- To unsubscribe send email to [email protected] For additional commands send email to [email protected] with Subject: help --=-Hq8wzFPO2BedLcePsxOf Content-Type: text/html; charset="utf-8" Content-Transfer-Encoding: 7bit <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN"> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8"> <META NAME="GENERATOR" CONTENT="GtkHTML/3.32.2"> </HEAD> <BODY> El sáb, 12-03-2011 a las 13:37 +0000, Alejandro Rivas Morán escribió: <BLOCKQUOTE TYPE=CITE> <PRE> Saludos. Resulta que tengo una webcam y desde ella puedo capturar "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ña, como cuadrito, luego con el puntero debo extenderle el tamaño. Pues bien, donde pudiera encontrar el codito OObasic para hacer esto. Es decir, sustituir la seleccion de menu --Insertar - imagen - escanear- solicitar - y tambien, donde pudiera encontrar codigo para elegir la foto insertada y amplarle el tamaño. 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 tengo ni la menor idea de por donde y como empezar. Gracias por sus ayudas y sugerencias. </PRE> </BLOCKQUOTE> <BR> <BR> Hola Alejandro...<BR> <BR> Para solicitar ayuda no es necesario hacer ningún aporte, con ser usuario es más que suficiente...<BR> <BR> La opción que mencionas solo la veo en OOo/LibO Writer, pero no en Calc, ¿esta es la que estas usando?<BR> <BR> No veo el caso de sustituir algo que ya esta funcionando, pero inmediatamente después de insertar la foto, puedes usar el siguiente código para ampliar la foto al tamaño que quieras, te muestro donde establecer el tamaño 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 = ThisComponent<BR> oPaginaDibujo = oDoc.DrawPage<BR> oImagen = oPaginaDibujo.getByIndex( oPaginaDibujo.Count - 1 )<BR> If oImagen.ImplementationName = "SwXTextGraphicObject" Then<BR> 'Ancho y alto en milésimas de centímetro<BR> oTam.Width = 3000<BR> oTam.Height = 3000<BR> oImagen.Size = oTam<BR> End If<BR> <BR> End Sub<BR> <BR> Toma nota que el código anterior siempre cambiara la ultima imagen insertada y por supuesto, aparte del tamaño, puedes cambiar cualquier propiedad disponible en dicho objeto.<BR> <BR> <BR> Saludos<BR> <BR> <BR> <TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%"> <TR> <TD> -- <BR> __________________________________<BR> Mauricio Baeza Servín<BR> Universo Libre México, A.C.<BR> Fundador y Director General<BR> <BR> <B>Todo lo que no podemos dar nos posee... Andre Gide</B> </TD> </TR> </TABLE> </BODY> </HTML> --=-Hq8wzFPO2BedLcePsxOf--