............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Cargar o cambiar Imagen en Form

Ver el tema anterior Ver el tema siguiente Ir abajo

Cargar o cambiar Imagen en Form

Mensaje por Jose BN el Miér Jun 01, 2011 8:48 pm

Es posible cambiar o cargar una imagen en el cuadro de imagen de un form? el form cuenta con 3 textbox y un boton para realizar la busquedad del valor digitado en el primer textbox y carga los datos en los restantes textbox mediante el siguiente codigo:

Private Sub BUSCAR_Click()
If TextBox1 = "" Then
MsgBox "Coloca algun dato para buscar", vbOKOnly + vbInformation, "AVISO"
TextBox1.SetFocus
Exit Sub
End If
Sheets("BaseDatos").Select
Set rango = Range("B:B").Find(What:=TextBox1, _
LookAt:=xlWhole, LookIn:=xlValues)

If rango Is Nothing Then
MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
TextBox1 = "": TextBox1.SetFocus
Exit Sub
Else
TextBox2 = Range("C" & rango.Row)
TextBox3 = Range("E" & rango.Row)
TextBox4 = Range("F" & rango.Row)
TextBox5 = Range("H" & rango.Row)
End If
End Sub

En una hoja de calculo es posible ligar una validación a un rango y esta carge la imagen en un objeto de imagen, es posible realizar algo similar en el form?

Si conocen alguna forma de hacer posible esto, agradezco la compartan.

Saludos,
avatar
Jose BN

Masculino Cantidad de envíos : 57
Edad : 37
Ciudad - Pais : Costa Rica-San Jose
Version de Excel : 2003, Vista, 2007
Fecha de inscripción : 16/05/2011

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por rolano el Miér Jun 01, 2011 10:19 pm

Hola Jose, este codigo es para cargar la imagen.
Código:

Private Sub cmdCargarImagen_Click()
'Cargar la ruta en donde esta la imagen para guardarlo en la celda correspondiente
On Error Resume Next
Dim Ruta As String
Ruta = Application.GetOpenFilename
If Ruta <> False Then
'cargamos la imagen
Me.Image1.Picture = LoadPicture(Ruta)
xCmpRuta = Ruta
End If
End Sub

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 44
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por Jose BN el Jue Jun 02, 2011 8:13 pm

Voy a probarlo y te comento, muchas gracias! rolano
avatar
Jose BN

Masculino Cantidad de envíos : 57
Edad : 37
Ciudad - Pais : Costa Rica-San Jose
Version de Excel : 2003, Vista, 2007
Fecha de inscripción : 16/05/2011

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por Jose BN el Jue Jun 16, 2011 9:05 pm

rolano, he intentado realizar lo comnetado y no he tenido exito, me queda un pregunta el LoadPicture(Ruta) funciona para buscar la imagen dentro del mismo libro activo porque creo que tu recomendacion aplicaria para buscar dentro de una ruta del PC y lo que necesitaria seria lo siguiente:

En la columna A cuento con un rango de nombre y ciertos valores para cada celda y la columna B contará con las imagenes asocidas a los valores de la celda, es posible cargar estas imagenes desde excel ya que no comprendo como LoadPicture reconoceria la imagen del valor buscado.

Agradezco tus comentarios.

Saludos,

Jose

avatar
Jose BN

Masculino Cantidad de envíos : 57
Edad : 37
Ciudad - Pais : Costa Rica-San Jose
Version de Excel : 2003, Vista, 2007
Fecha de inscripción : 16/05/2011

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por rolano el Jue Jun 16, 2011 9:35 pm

Hola Jose, en la columna B debe ir esto C:\Documents and Settings\All Users\Documentos\Mis imágenes\Imágenes de muestra\Colinas azules.jpg
En todo caso sube un archivo para poder adaptarlo.

Public Sub VerImagen()
Dim Ruta As String
'Cargar la ruta en donde esta la imagen para guardarlo en la celda correspondiente
On Error Resume Next

FilaNum = rango.Row
Ruta = Hoja1.Range("B" & FilaNum)
If Ruta <> False Then
'cargamos la imagen
Me.Image1.Picture = LoadPicture(Ruta)
xCmpRuta = Ruta
End If
End Sub

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 44
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por Jose BN el Dom Jun 26, 2011 6:02 pm

Hola rolano adjunto el link donde tengo el libro donde deseo aplicar la imagen a un form




[Tienes que estar registrado y conectado para ver este vínculo] form.xls

[Tienes que estar registrado y conectado para ver este vínculo]

Saludos,
avatar
Jose BN

Masculino Cantidad de envíos : 57
Edad : 37
Ciudad - Pais : Costa Rica-San Jose
Version de Excel : 2003, Vista, 2007
Fecha de inscripción : 16/05/2011

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por rolano el Dom Jun 26, 2011 8:52 pm

Hola Jose Revisa el link
[Tienes que estar registrado y conectado para ver este vínculo]

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 44
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por Jose BN el Miér Jun 29, 2011 7:49 pm

[Tienes que estar registrado y conectado para ver este vínculo]

Este es el link correcto, el archivo se llama foto form, de igual forma he agregado otro archivo llamado "foto form2" donde logro cargar la imagen al form mediante este codigo:

Imagen.Picture = LoadPicture("C:\santander.jpg"), pero aun me quedan unas dudas, me parece que la función del codigo incrusta la imagen como cuando personalizamos un form osea agregamos una imagen, será posible que la imagen se cargue al cuadro de imagen? para estandarizar el tamaño, etc.

entiendo que lo recomendable seria cargar la imagen desde un directorio externo al libro tratándose de cantidades muy grandes de imágenes, pero aun no he entendido como defino cuando el caso es buscar la imagen desde el libro.
avatar
Jose BN

Masculino Cantidad de envíos : 57
Edad : 37
Ciudad - Pais : Costa Rica-San Jose
Version de Excel : 2003, Vista, 2007
Fecha de inscripción : 16/05/2011

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por rolano el Miér Jun 29, 2011 10:30 pm

Hola Jose, he modificado el link anterior para el tamaño.
Tuto de un amigo de otro foro Nico.
Buscar imagen desde el libro.
[Tienes que estar registrado y conectado para ver este vínculo]

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 44
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Re: Cargar o cambiar Imagen en Form

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.