Sub Macro2()'' Macro2 Macro'' Keyboard Shortcut: Ctrl+d' ActiveCell.Select ActiveSheet.Paste Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleF...
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