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?
salida:
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
1
2
MsgBox "Ha ocurrido un error,revise los nombres de las fotos", vbCritical
End Sub
Valora esta pregunta
0