Abraham Valencia respondió:
[Hola Prueba algo así: Dim Izquierda As Single, Arriba As Single, Ancho As Single, Alto As Single Application.DisplayAlerts = False With Worksheets("Hoja2").Range("A1:D5") Izquierda = .Left Arriba = .Top Ancho = .Width Alto = .Height .CopyPicture End...