Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+d
'
    ActiveCell.Select
    ActiveSheet.Paste
    Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ZOrder msoSendToBack
End Sub