Visual Basic para Aplicaciones - Grabar un Evento que visualiza imagenes en una macro personal

Life is soft - evento anual de software empresarial
   
Vista:

Grabar un Evento que visualiza imagenes en una macro personal

Publicado por David (1 intervención) el 12/12/2017 17:02:52
Hola,
Mi duda es como poder grabar una macro en el libro personal de excel cuando he grabado el siguiente codigo en la hoja 1 del libro de excel. Lo que hace el codigo es visualizar en el recuadro(control activex) la foto de las referencias que aparcen en la columna 8 del excel y que tienen el mismo nombre que las fotos guardadas.
Cada vez que cambio de celda en la columna H que es la referencia, se visulaliza una foto distinta ya que cada referencia tiene su propia foto. El evento funciona bien, pero lo que quiero es poder grabarlo en una macro en libro personal para que al abrir cualquier libro de excel pueda lanzar al macro. Es posible?

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salida
If Target.Column = 8 Then
foto = Target.Value
ActiveSheet.Image1.Picture = LoadPicture("C:\wamp\www\subir_foto\fotos\" & foto & ".jpg")
End If
Exit Sub
salida:
1
2
MsgBox "Ha ocurrido un error,revise los nombres de las fotos", vbCritical
End Sub


foto1
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