amigos tengo una duda......... tengo la siguiente macro.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

On Error Resume Next

foto = Range("b1").Value

ActiveSheet.Image1.Picture = LoadPicture("D:\FOTOS SISTEMA\" & foto & ".jpg")

With ActiveWindow.VisibleRange

Image1.Top = .Top + 5

Image1.Left = .Left + .Width - Image1.Width - 45

End With

End Sub

me ejecuta muy bien........ solo que cuando no esta la foto...... me carga la anterior...... lo que quiero es que cuando no este la foto me muestre el cuadro gris..... ... que se puede hacer...... mil gracias......

........ solo que cuando no esta la foto...... me carga la anterior......

No amigo, no, no te carga la anterior, simplemente te deja la imagen que había.

Hay que "borrarla" antes de intentar cargar la nueva.

Private Sub Worksheet_Change(ByVal Target As Range)


Application.ScreenUpdating = False: On Error Resume Next

foto = Range("b1").Value

ActiveSheet.Image1.Picture = LoadPicture("") '<====================

ActiveSheet.Image1.Picture = LoadPicture("D:\FOTOS SISTEMA\" & foto & ".jpg")

With ActiveWindow.VisibleRange

   Image1.Top = .Top + 5

   Image1.Left = .Left + .Width - Image1.Width - 45

End With


End Sub[/CODE]