Saltar al contenido

Imagen.


Recommended Posts

publicado

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

publicado
........ 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]

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.