Saltar al contenido

Cómo convertir una imagen de Png a Jpg desde el enlace Mostrar todo en un objeto de imagen de mi formulario de usuario


Recommended Posts

Hola a todos, mi nombre es Maurizio y mi problema es este:
De ahora en adelante afirmo que este proyecto no debería de ninguna manera; Implicar el uso de la hoja de Excel
Pero solo con su forma de usuario

Habiendo dicho eso: comenzaría diciendo que dentro de mi formulario de usuario ingresé:
1) imagen
1) Botón de comando
1) cuadro combinado
y finalmente una etiqueta

Ahora, el propósito de este proyecto sería hacer que uno de los dos enlaces que pertenecen a tantas imágenes tomadas de una página web lleguen al interior (Label3)

Pero por conveniencia he insertado los dos enlaces dentro de uno (cuadro combinado)

Por otra parte, desde el programa, convierto estas imágenes del formato (Png) a la (Jpg) que inserto en mi Subcarpeta llamada (Prueba)

Ahora el problema es que: no sé cómo hacer que se lea el enlace insertado en el programa (Label3); Para luego transformar la imagen de Png a jpg Para luego recuperar esta imagen en el (Imagebox) que tengo en mi formulario de usuario

Todo esto sin cuestionar la hoja de Excel

(p.s) Porque la imagen que se muestra actualmente dentro de mi (Imagebox) tiene un fondo oscuro.
Mientras que la imagen original es con un fondo claro?

Gracias en este momento por toda la ayuda que me des al respecto.
Saludos desde A.Maurizio

############################################################
Hello everyone, my name is Maurizio and my problem is this:
From now on I affirm that this project should not in any way; Involve the use of the Excel sheet
But only with your user form

Having said that: I would start by saying that inside my user form I entered:
1) picture
1) command button
1) combo box
and finally a label

Now, the purpose of this project would be to make one of the two links that belong to so many images taken from a web page reach the inside (Label3)

But for convenience I have inserted the two links inside one (combo box)

On the other hand, from the program, I convert these images from the (Png) format to the (Jpg) that I insert in my Subfolder called (Test)

Now the problem is: I don't know how to make the link inserted in the program read (Label3); To later transform the image from Png to jpg To later recover this image in the (Imagebox) that I have in my user form

All this without questioning the Excel sheet

(p.s) Because the image currently displayed inside my (Imagebox) has a dark background.
While the original image is with a light background?

Thanks at this time for all the help you give me about it.
Greetings from A.Maurizio

Super_Test_Immagine.rar

Enlace a comentario
Compartir con otras webs

Hola a todos
Sin saber cómo recoger mi publicación, la elimino por completo
Sigo aqui!
Al decir que no tenga en cuenta lo que solicité anteriormente.
Como en parte logré resolver el problema yo mismo:
Sin embargo, el hecho es que la imagen no es la original, sino que tiene un fondo oscuro,
2) también podría decirme cómo por código puedo una vez que la imagen ha sido presentada en el formulario de usuario
Puede eliminar la imagen que está en mi subcarpeta Clasificada como (mImg) o cómo darle un nombre diferente a cada imagen extraída. ¡Todo está aquí!
Gracias
####################################

Hi everyone
Not knowing how to pick up my post I delete it completely
I continue here!
In saying not to keep in mind what I requested above.
As in part I managed to solve the problem myself:
However, the fact remains that the image is not the original one, but with a dark background,
2) you could also tell me how by code I can once the image has been presented in the userform
Can delete the image that is in my subfolder Classified as (mImg) or how to give it a different name to each extracted image Everything here!
Thank you

(P.s) Declaro que la imagen cambia solo si el enlace está en (Label3) y ya no hay rastros de la imagen en la subcarpeta

################################

I state that the image changes only if the link is in (Label3) and there is no longer any trace of the image in the subfolder

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Buenas noches quisiera hacer esta formula auto incremental    =SI(INDIRECTO("'Casos de Prueba'!I1")="Resultados Ciclo 1"; SI(CONTAR.SI(INDIRECTO("'Casos de Prueba'!I:I"); "OK")=0; 0; CONTAR.SI(INDIRECTO("'Casos de Prueba'!I:I"); "OK")); 0)      para que cada vez que copiase y pegase la celda con la formula  se incrementara la letra en este caso la I pasara a J ,como el numero perteneciente a Resultados Ciclo pasando en este caso del 1 al 2.   Tengo también esta formula =CONCATENAR("CP";TEXTO(MAX((SI((ESNUMERO(HALLAR("CP";A$1:A1)))*(A$1:A1<>"");VALOR(EXTRAE(A$1:A1;3;3));0))+1);"000")&" - "&B2) quisiera que no tuviera los 3 ceros si no que fuera por ejemplo CP1 y se fuera incrementando. Gracias un saludo.
    • Con el diseño así como lo tiene en su libro, una fórmula de BUSCARV con COINCIDIR debería ser de utilidad =C5*BUSCARV($C$1,Tabla1[#Todo],COINCIDIR($D5,Tabla1[#Encabezados],0)) Es con lo que participaría en su consulta. Lo que resta es definir que hacer si no encuentra la OT porque así como esta le devolvería error en ese caso, o si tiene condiciones que haya podido omitir también le afectarían el resultado.
    • He cambiado mi macro a este: Sub repetir() Set a = Sheets(ActiveSheet.Name) uf = a.Range("C" & Rows.Count).End(xlUp).Row 'ultima fila con datos ActiveCell.Select ActiveCell.Offset(1, 0).Select   'Application.OnTime Now + TimeValue("00:00:10"), "repetir", , True End If End Sub   Lo que no se es como detenerlo al llegar a la ultima fila con datos de la columna C. Muchas gracias
    • Buenas tardes a todos. Tengo un problema que preciso de vuestra ayuda.  Tengo que controlar los gastos de la oficina que trabajo y he de repartir unos gastos a % según una OT y unos tipos de gastos. Envío un archivo adjunto. Lo que necesito es que lo que aparece en la columna en amarillo lo haga automáticamente, teniendo en cuenta los datos de la tabla a la derecha. Por ejemplo, el primer gasto tiene una cuota de 1477 euros y teniendo en cuenta que es un gasto de tipo Común y que la OT es la 12810234, le corresponde un gasto de 605,57 euros ya que según la tabla de la derecha su % a imputar es de un 41%. ¿alguien me puede ayudar con la formula? He de añadir muchas más líneas y más hojas con el resto de OT y en el futuro cambiar más datos, así que necesito automatizarlo con una formula Excel. Gracias. Control de gastos.xlsx
    • Hola buenas tardes: Por favor me pueden ayudar a realizar lo siguiente. ejecutar una macro después de un tiempo, que recorra una columna a partir de la celda activa hacia abajo. Es una lista extensa, que filtro desde la columna B. y solo me muestra las filas que me interesan. ejemplo: Si mi celda activa es la C23 ejecutar la macro y baje una celda y repite la macro después de 20 segundos y lo vuelve hacer(Simpre bajando una celda), y que este se detenga hasta la ultima fila que este visible en el filtro. Ya que puedo tener muchos datos mas.   Gracias   Prueba filtro y avance.xlsm
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.