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.
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
0
