¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

fijar imagen insert...
 
Compartir:
Avisos
Vaciar todo

[Resuelto] fijar imagen insertada en macro

Cristinatw
(@cristinatw)
Nuevo miembro Registered

buenas. He creado una lista y necesito que las imágenes insertadas en macro no se pierdan de vista a medido que avanzo en la hoja excel. El cuadro de imagen ocupa desde la columna E hasta la fila 16.

el código que utilizo en Worksheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
foto = Target.Value
ActiveSheet.Image1.Picture = LoadPicture("C:UsersAdministradorDesktopimagenesproductos" & foto & ".jpg")
End If
End Sub

Ojalá puedan ayudarme, gracias.

Topic starter Respondido : 12/07/2020 7:52 pm
alexhernandez le gustó
RET
 RET
(@ret)
Miembro Admin

Hola Cristinatw.

No me queda claro lo que quieres. De tu mensaje y tu código, entiendo que en la columna 1 tienes el listado de las fotos a mostrar y que al cambiar la celda seleccionada a alguna de las de esa columna, modificas la foto cargada. Hasta ahí, creo que está claro.

Luego dices que esa imagen ocupa desde la columna E hasta la fila 16. Esto ya, no lo entiendo. Tendrías que decir desde la celda (Col/Fila) hasta la celda (Col/Fila). Por favor, lo puedes aclarar?

Por otro lado, también deduzco que lo que quieres es que, si bajas por la hoja y vas perdiendo filas por encima, la imagen vaya bajando. Si estoy interpretándote bien, deberías ir moviendo la ubicación de la imagen y esto creo que te producirá saltos en la visualización. Has pensado en crear un formulario no modal que sea el que muestre la imagen? Podrías mantener siempre su posición, independientemente de como te desplaces por la hoja.

Por favor, aclara un poco mas que es lo que quieres hacer.

 

IMF_RET

https://InformaticaMuyFacil.com

Respondido : 12/07/2020 9:18 pm
Cristinatw
(@cristinatw)
Nuevo miembro Registered

buenas tardes. gracias por responder. espero ser más clara.

tengo una base de datos de producto, cada producto tiene un código para que cada vez que haga clic en él, me aparezca la imagen de este. El problema reside en que por el gran números de productos, cuando comienzo a desplazar hacia abajo, la imagen de los prductos no se visualizan, pues quedan fijos en donde inserté el cuadro de imagen de Activex, y lo que deseo es que  siempre pueda ver la independientemente de la celda en la que esté.

Topic starter Respondido : 12/07/2020 10:28 pm
RET
 RET
(@ret)
Miembro Admin

No me termina de quedar claro lo que ocupa tu imagen. De todas formas, prueba algo parecido a esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Izda As Long
Dim Arriba As Long
Dim Imagen As Shape

If Target.Column = 1 Then
foto = Target.Value
ActiveSheet.image1.Picture = LoadPicture("C:\Users\Administrador\Desktop\imagenesproductos\" & foto & ".jpg")
Set Imagen = ActiveSheet.image1
With Imagen
.Top = Arriba
.Left = Izda + Target.Width
End With
End If
End Sub

Este código te mueve la imagen a la altura de la celda seleccionada y a la siguiente columna. Si tiene que estar mas a la derecha (columna E), tendrás que modificar .Left = Izda+ Target.Width a lo que necesites.

Si no te funciona, sube el archivo o un extracto de él.

Saludos,

IMF_RET

https://InformaticaMuyFacil.com

 

Respondido : 13/07/2020 9:03 am