Error VBA "INSERTAR IMAGEN"

[raybarri]

Buenas...

Tengo el siguiente código con el cual puedo mostrar imagenes externas dentro de un cuadro de imagen:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jorgelin]

Solo quita la sentencia if



Private Sub Worksheet_Calculate()

On Error Resume Next
Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\formatos\" & Target & ".jpg")

End Sub


y con eso queda

 

[jorgelin]

perdón

Private Sub Worksheet_Calculate()
On Error Resume Next
Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\formatos\" & [A7] & ".jpg")

end sub

 

[raybarri]

Ok_ Muchas Gracias jorgelin
Tarde varios dias buscando corregir el problema
Sabia que era algo + o - asi pero no le di... Seguiremos estudiando hasta perfeccionar esto del vba

 

[raybarri]

perdón

Private Sub Worksheet_Calculate()
On Error Resume Next
Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\formatos\" & [A7] & ".jpg")

end sub

Ok_ Muchas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí