Visual Basic para Aplicaciones - Exportar imagenes a documento excel

Life is soft - evento anual de software empresarial
   
Vista:

Exportar imagenes a documento excel

Publicado por PMateos (1 intervención) el 25/08/2014 15:02:10
Buenas tardes,

Escribo por un problema que tengo a la hora de exportar imagenes, procedentes de una carpeta, en un fichero excel. Para la primera de ellas no he tenido mayores problemas, pero sin embargo, la segunda me resulta un quebradero de cabeza.

He estado leyendo que solo podemos poner una vez la secuencia "Worksheet_SelectionChange(ByVal Target As Range)", de modo que no se como poner la otra...

Os dejo el compilado en virtual basics a ver si alguien puede ayudarme con este tema.


Private Sub Img1_Click()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MiFoto1 As String, StrRuta1 As String, PicAddress1 As String
Dim MiRuta1 As String

MiFoto1 = Feuil1.Range("B77").Value & ".jpg"

On Error GoTo ControlError

MiRuta1 = ThisWorkbook.Path & "\Images\" & MiFoto1

PicAddress1 = MiRuta1

If Target.Row = 77 And Target.Column = 2 Then

If IsError(PicAddress1) Then
Img1.Picture = Nothing
Else
Img1.Picture = LoadPicture(PicAddress1)
End If
End If

ControlError:
Select Case Err.Number
Case 53
Img1.Picture = Nothing
End Select

End Sub

Me gustaria poder cargar otra imagen, cuyo codigo de nombre se encuentra en C77...

Muchisimas gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Exportar imagenes a documento excel

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 10/09/2014 15:55:09
prueba con algo asì...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
MiFoto1 = Target.Value & ".jpg"
 
On Error GoTo ControlError
 
MiRuta1 = ThisWorkbook.Path & "\Images\" & MiFoto1
 
PicAddress1 = MiRuta1
 
If Target.Column = 2 Then
 
  If IsError(PicAddress1) Then
     Img1.Picture = Nothing
  Else
      Img1.Picture = LoadPicture(PicAddress1)
  End If
End If

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar