Adaptar código insertar imágenes a nuevo diseño.
Para Dam
Hola Dam:
Vuelvo a solicitar tu ayuda con el código que me enviaste ya que he tenido que rediseñar mi proyecto y no soy capaz de adaptar el código al nuevo diseño
Respuesta de Dante Amor
1
Muchas gracias lo estoy preparando con una mejor explicación de lo que necesito en cuanto lo tenga te lo envió.
Un saludo.
Víctor
Aquí el código para insertar la imagen
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
Set h1 = ActiveSheet
Select Case Target.Address(False, False)
Case "A13": Set img = h1.Image1
Case "A27": Set img = h1.Image2
Case "A41": Set img = h1.Image3
Case "A55": Set img = h1.Image4
Case Else: Exit Sub
End Select
carp = [A3]
img.Picture = Nothing
Set h3 = Sheets(carp)
Set b = h3.Columns("A").Find(Target, LookAt:=xlWhole)
If Not b Is Nothing Then
ruta = ThisWorkbook.Path & "\IMAGENES\" & carp & "\"
arch = h3.Cells(b.Row, "B") & ".jpg"
If Dir(ruta & arch) <> "" Then
img.Picture = LoadPicture(ruta & arch)
Else
MsgBox "No existe el archivo"
End If
Else
MsgBox "No existe el modelo"
End If
End Subsal u dos
