Pegar imagen en una celda

Para pegar una imagen que tenemos en el porta papeles en una celda de Excel seleccionada, utilizaremos la siguiente macro:

Sub PegarFoto()
    ActiveSheet.Paste 'Pegamos del portapapeles
    ActiveSheet.Select
    With Selection
        .ShapeRange.LockAspectRatio = msoFalse
        .ShapeRange.Height = 175 'Alto de la imagen
        .ShapeRange.Width = 205 'Ancho de la imagen
        .ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda)
        .ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (superior)
    End With
End Sub

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *