Re: Link a Imagen

hola, gabriel !

... la rutina... anda... (http://tinyurl.com/8nszd)
... como hago para... q me aparezcan 2 fotos.
Se puede duplicar la rutina y solo cambiarle los parametros necesarios ?

copio/pego una variacion de las rutinas en el enlace :)
=> ... c13:e42 (...alumnos...asistencia) ... c57:e86 (...alumnos...practica)

... columna...direccion...fotos es...AM
... aj2:ak8...fotos de la primera planilla...aj46:ak52...segunda planilla.
... misma foto en dos lugares.
... Iba a prometerte que despues de esta no te jorobo mas
... pero no se si voy a necesitar otra respuesta. :-))

['vamos a ver' si entendi 'completo'] :))
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Foto1 As Object, Foto2 As Object, _
Arriba As Double, Izquierda As Double, _
Ancho As Double, Alto As Double
Static Fila As Integer: On Error Resume Next
If Target.Row = Fila Then Exit Sub
Application.ScreenUpdating = False
Me.Shapes.Range(Array("Foto1", "Foto2")).Delete
Select Case Target.Row
Case 13 To 42, 57 To 86
If Dir(Range("am" & Target.Row)) = "" Then Exit Sub
Set Foto1 = Me.Pictures.Insert(Range("am" & Target.Row))
With Range("aj2:ak8")
Arriba = .Top: Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto1
.Name = "Foto1": .Top = Arriba: .Left = Izquierda: .Width = Ancho: .Height = Alto
End With: Set Foto1 = Nothing
Set Foto2 = Me.Pictures.Insert(Range("am" & Target.Row))
With Range("aj46:ak52")
Arriba = .Top: Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto2
.Name = "Foto2": .Top = Arriba: .Left = Izquierda: .Width = Ancho: .Height = Alto
End With: Set Foto2 = Nothing
End Select: Fila = Target.Row
End Sub

saludos,
hector.