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
原文：http://www.cnblogs.com/mi333ni/p/5123648.html